open(FH, $0);

print "*FH IO slot holds - ", *FH{IO}, $/;

__output__

*FH IO slot holds - IO::Handle=IO(0x8107e4c)

##</code><code>##

sub import {
  my $pkg = caller;

  ## import only filehandles
  *{"$pkg\::$_"} = *{__PACKAGE__."::$_"}{IO}
    for keys %{__PACKAGE__."::"};
}