file: examples/Barramm2.pm 1: package Barramm2; 2: 3: sub import { 4: my $package=shift; 5: my @params=@_; 6: my $caller=caller(); 7: print "In import: $package, called from $caller with params: ".join(',',@params)."\n"; 8: } 9: 1;