Select Code to Download

sub first_line_from_file {
  my $fn = shift;
...
    or die "unable to open file $fn";
  <$file>
}

  scalar <$file>;