急救，为什么@pdbname 不能在 OUTFI

急救，为什么@pdbname 不能在 OUTFI
急救，为什么@pdbname 不能在 OUTFILE中输出呢？？
pinKid      2008-12-04 23:02:54　　来自: pinKid(石家庄)

　　
　　#!/usr/bin/perl
　　# Demonstrate File::Find
　　open(OUTFILE,'>C:\Documents and Settings\Administrator\桌面\output.txt');
　　
　　open(MENUFILE,'>C:\Documents and Settings\Administrator\桌面\menu.txt');
　　
　　
　　use File::Find;
　　
　　find(\&handleFind, 'pdb');
　　
　　sub handleFind{
　　
　　 $foundFile = $File::Find::name;
　　
　　 $s=substr($foundFile ,length($string)-11) if ($foundFile =~ /.txt/i);
　　
　　 print MENUFILE $s , "\n";
　　 @pdbname=<MENUFILE>;
　　 print OUTFILE @pdbname
　　}
　　

print OUTFILE @pdbname -.
print OUTFILE @pdbname -- 少了个分号