use strict;

open (FOO, "test") ||
    die "ERROR Unable to open test: $!\n";

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