$main::FH = 'a string';
print "nope" if not defined *FH{IO};

__output__

nope