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

use Modul;