Select Code to Download

#!/usr/bin/perl

...
print "sending\n";
print $fh "message\n";
print "send done\n";