file: examples/Zat.pm 1: package Zat; 2: 3: sub import { 4: my $caller=caller(); 5: no strict 'refs'; 6: *{"$caller\::zat"}=\&do_zat; 7: } 8: 9: sub do_zat { print "ZAT!\n" } 10: 1;