Help for this page

Select Code to Download

Select or download this

#!user/bin/perl
use warnings;
...
while (defined (my $line = <$fIn>)) {
    ...
}