Help for this page

Select Code to Download

Select or download this

..... ..... ....  ....  ....
..... ..... ....  ....  ....
total 1234  1234  5678  7894

Select or download this

#!/usr/local/bin/perl -w
my($currentLine, $name, $infilename);
...
        print $currentLine;
}