# 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;