Select Code to Download

my $first;
my $last;
...
      $last  = $_;
   }
}

use File::ReadBackwards ();

...

   $last = $fh->readline();
}

my $first;
my $last;
...

   ($first, $last) = (<$fh>)[0, -1];
}