in reply to is filehandler used ?

if (*STDOUT{IO}) {
    print "it's used\n";
}

[download]

In Section Seekers of Perl Wisdom