Select Code to Download

....
my @lines = <$fh>;
my $count = scalar @lines;
....

# Unstested
my strict;
...
  close $fh;
}
print $content;