use Object::MultiType ;

  my $scalar = 'abc' ;
  local(\*GLOB) ;
  tie(*GLOB => 'TieGlobPack') ;

  my $obj = Object::MultiType->new(
  scalar   => \$scalar ,
  tiearray => 'TieArrayPack'
  tiehash  => 'TieHashPack'
  code     => sub{ return("I'm a sub ref!") ; }
  glob     => \*GLOB ,
  ) ;
  
  print "Me as scalar: $obj\n" ;
  
  my $array_1 = $obj->[1] ;
  
  my $hash_B = $obj->{B} ;
  
  while( <$obj> ) {
    print $obj "$_\n" ;
  }
  
  &$obj(args) ;