sub MainSub {
    my $name = (caller 0)[3];
    print "My name is $name\n";
}

*sub1 = \&MainSub;
*sub2 = \&MainSub;
*sub3 = \&MainSub;

sub1();
sub2();
sub3();