My normal test is

print "FRED is open\n" if defined fileno FRED;
[download]

As far as I remember, this worked all the way back to Perl 2. {grin}

-- Randal L. Schwartz, Perl hacker