Select Code to Download

   open FH ">foo.txt";
   print FH "blah"
...
   close FH1;
   unlink "foo.txt"; # `DELETE FOO.TXT;2`
   if ($^O eq 'VMS') { unlink "foo.txt" } # `DELETE FOO.TXT;1`

   1 while unlink $filename;