http://www.perlmonks.org?node_id=1011171


in reply to check if a filehandle is STDOUT when using use strict;

#!/usr/bin/env perl use strict; print "PID: " . $$, "\n"; open STDOUT, ">/tmp/returntozork" or die $!; while (1) { sleep 10; }
PID: 3868 shell> ls -l /proc/3868/fd/ lrwx------. 64 Jan 1 09:55 2 -> /dev/pts/0 l-wx------. 64 Jan 1 09:55 1 -> /tmp/returntozork lrwx------. 64 Jan 1 09:55 0 -> /dev/pts/0