use strict;

package M;

sub x {
    my $caller_package = shift;
    print "Caller: $caller_package\n";
    $caller_package->_x();
}

package main;

sub _x {
    my $class = shift;
    print "$class _x\n";
}

main->M::x();