use Exporter 'import'; 
@EXPORT_OK = qw(sub1 sub2 var1 var2);