package A;

...

use FindBin;
use lib $FindBin::Bin;

...

    machdas();

...

sub _create_module {
    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 {
    ...
    A::_create_module();
} # BEGIN


use Modul;

return 1;