Select Code to Download

my $file = "/tmp/foobar.txt"; #dir perms 777
open (FILE, ">$file") or die "ERROR: can't create $file: $!\n";
0 or die "ERROR: $!\n";     # <--- dies with "ERROR: Inappropriate ioc
+tl for device"

$ strace ./837195.pl
...
...
write(3, "the quick brown fox, etc.\n", 26) = 26
close(3)                                = 0
exit_group(0)                           = ?