Help for this page

Select Code to Download

Select or download this

use strict;

...
while (<FOO>) {$last = $_}
close FOO;
print "$first\n$last\n";