Help for this page

Select Code to Download

Select or download this

while (<INPUT>)  {
     my $line = $_;
     my @file;
     push @file, $_;
     <snip>