perl -w test.pl
write() on unopened filehandle TEST at test.pl line 14.