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