05:33 PM george@gnistorica george $ perl 435258.pl 2> /dev/null
#1: STDOUT is open
#4: warning at 435258.pl line 32.
#4: STDOUT is open
#4: warning at 435258.pl line 35.