package Test;

sub test { (caller)[1]; };

package main;

print Test::test();