Select Code to Download

my $msg = <STDIN>;
open(my $msg_fh,"<",\$msg)
...
# ...
$host->put($msg_fh,$file)
    or die "cannot put file: ", $host->message, $/;