my $from_a_handle = (ref($from)
                     ? (ref($from) eq 'GLOB'
                        || UNIVERSAL::isa($from, 'GLOB')
                        || UNIVERSAL::isa($from, 'IO::Handle'))
                     : (ref(\$from) eq 'GLOB'));