package M1;
use parent qw(Exporter);
@EXPORT=qw(func);
sub func{print "Hello"}
sub import{
print "Imported";
print @_;
M1->export_to_level(1,@_)}
1;

##</code><code>##

perl -I. -we 'use M1 qw(func);func()'