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"

##</code><code>##

$ strace ./837195.pl
...
open("/tmp/foobar.txt", O_WRONLY|O_CREAT|O_TRUNC, 0666) = 3
ioctl(3, SNDCTL_TMR_TIMEBASE or TCGETS, 0x7fffa2ebce90) = -1 ENOTTY (Inappropriate ioctl for device)
lseek(3, 0, SEEK_CUR)                   = 0
fstat(3, {st_mode=S_IFREG|0600, st_size=0, ...}) = 0
fcntl(3, F_SETFD, FD_CLOEXEC)           = 0
write(3, "the quick brown fox, etc.\n", 26) = 26
close(3)                                = 0
exit_group(0)                           = ?