my $glob = 'FOO';
if (defined do {
    no strict 'vars';
    *$glob{IO}}) {
    # ...
}