BEGIN {
    ...
    open(F, ">$FindBin::Bin/Modul.pm")
        or die "Unable to create Modul.pm:$!";
    print F "sub machdies { print \"machdies\\n\" }\n";
    print F "sub machdas  { print \"machdas\\n\"  }\n";
    print F "1;\n";
    close(F) or die "Unable to close Modul.pm:$!";

} # BEGIN


use FindBin;
use lib $FindBin::Bin;
use Modul;