use Company::Mein::Modul qw/ &sub1 &sub3 /;
sub3();