Help for this page

Select Code to Download

Select or download this

my $last;
while (my $line = <$fh>) {
...
    $last = $line;
}