my $first;
my $last;

{
   open(my $fh, '<', 'file')
      or die("Unable to open input file: $!\n");

   while (<$fh>) {
      $first = $_ if not defined $first;
      $last  = $_;
   }
}