Help for this page
package M1; use parent qw(Exporter); ... print @_; M1->export_to_level(1,@_)} 1;
perl -I. -we 'use M1 qw(func);func()'