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

##</code><code>##

   1 while unlink $filename;