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