Select Code to Download

  use strict ; use warnings ;

...
    my $sex = ref($thing) ;
    return $sex ? "ref:$sex" : ref(\$thing) ;
  } ;

  sex($a) =       GLOB and ${*{$a}{SCALAR}} = 127
  sex($b) =   ref:GLOB and ${*{$b}{SCALAR}} = 127

  use strict ; use warnings ;

...
    my $sex = ref($thing) ;
    return $sex ? "ref:$sex" : ref(\$thing) ;
  } ;

  1________________________________
  open FH, ">&2" ;
...
  open $fh, ">&2" ;
    show($fh)        => ref:FileHandle     fileno=7  test=OK     can '
+autoflush'
    show(*$fh{IO})   => ref:FileHandle     fileno=7  test=undef  can '
+autoflush'

  open my $FH, ..... ;

  use IO::Handle ;
  open my $FH = new IO::Handle, .... ;

  $STDERR  = \*STDERR ;
  my $DATA = \*DATA ;

  $STDERR  = bless \*STDERR, 'IO::Handle' ;
  my $DATA = bless \*DATA,   'IO::Handle' ;

  no strict ;

...
    my $FH = shift ;
    print $FH @_ ;
  } ;