my $multi = Object::MultiType->new(
  code      => sub{ print "CODE!\n" } ,
  glob      => \*STDOUT ,
  ) ;

  &$multi(args)
  print $multi "Hello!" ;