统计一个目录下每个文件的行数

CODE:

$userDir = "$c:/users";
chdir($userDir);
while (<*.txt>){
    my $filename = $_;
    $count = 0;
    open(ORIGINALORDERFILE, $_);
                @file=<ORIGINALORDERFILE>;
                $count = @file;
                open (SUMMARY,">>c:/summary.txt");
                print SUMMARY "$filename  ";
                print SUMMARY "This file total is $count rows\n";
                print SUMMARY "+++++++++++++++++++\n";
                close(SUMMARY);
                close(USERNAME);
                                         }