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 ioctl for device"