$fh = select;
print("currently selected FILEHANDLE:$fh\n");

##</code><code>##

#2: warning at C:\warntest.pl line 16.
#4: warning at C:\warntest.pl line 28.
currently selected FILEHANDLE: main::STDOUT
#4: STDOUT is open
currently selected FILEHANDLE: main::STDOUT
print() on closed filehandle STDERR at C:\warntest.pl line 34.
currently selected FILEHANDLE: main::STDOUT
#4: warning at C:\warntest.pl line 37.
currently selected FILEHANDLE: main::STDOUT