sub _from_a_handle {
    my ($var) = @_;
    my $from_a_handle = (
        ref($var)
            ? (
                ref($var) eq 'GLOB'
                || UNIVERSAL::isa($var, 'GLOB' )
                || UNIVERSAL::isa($var, 'IO::Handle')
            )
            : (ref(\$var) eq 'GLOB')
    );
    return $from_a_handle;
}