Select Code to Download

my $line = <$filehandle>;
chomp $line;

my $line;
open my $linefh, \$line;
...
  print $linefh $char;
}
close $linefh;