sub first_line_from_file {
  my $fn = shift;
  open my $file, "<", $fn
    or die "unable to open file $fn";
  <$file>
}
[download]

To return the first line I'd say

  scalar <$file>;
[download]

(The semicolon is cosmetic. But I consider it good style)