Select Code to Download

use strict;
use warnings;
...
   or die("OsFHandleOpen: $^E\n");

print $fh "Foo!\n";