open my($fh), '>', '/f/o/o' or die "Can't clobber /f/o/o : $!";
print $fh "stuff\n";
...