Help for this page
$fh = select; print("currently selected FILEHANDLE:$fh\n");
#2: warning at C:\warntest.pl line 16. #4: warning at C:\warntest.pl line 28. ... currently selected FILEHANDLE: main::STDOUT #4: warning at C:\warntest.pl line 37. currently selected FILEHANDLE: main::STDOUT