# MainGuard.pm                                              28feb17waw

package MainGuard;

use warnings;
use strict;

main(@ARGV);

sub main {

    my (@args,
        ) = @_;

    printf "in function %s() \n"
         . "with arguments %1\$s(@args) \n"
         , (caller(0))[3]
         ;

    die "AAAAAAAArrrrrgh...";  # but how did he chisel it in stone?

    }

1;

##</code><code>##

use warnings;
use strict;

use MainGuard;

print "in package ", __PACKAGE__, " before exit. \n";

exit(0);

##</code><code>##

c:\@Work\Perl\monks\R0b0t1>perl execution_of_used_module_1.pl Command Line Args
in function MainGuard::main()
with arguments MainGuard::main(Command Line Args)
AAAAAAAArrrrrgh... at MainGuard.pm line 20.
Compilation failed in require at execution_of_used_module_1.pl line 86.
BEGIN failed--compilation aborted at execution_of_used_module_1.pl line 86.