package A;

use diagnostics;
use strict;
use warnings;

use FindBin;
use lib &#36FindBin::Bin;

sub mach {
    machdies();
    machdas();
}

sub _erzeuge_modul {
   open(F, ">&#36FindBin::Bin/B.pm")
       or die "Unable to create B.pm:&#36!";
   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:&#36!";
}

BEGIN {
   A::_erzeuge_modul();
} # BEGIN

use B;

return 1;