package Whatever;
BEGIN {
    $main::FILE = __FILE__;
    $main::FILE =~ s/goto_caller\.t/caller.t/;
    print "# goto $main::FILE\n";
}
use goto::file $main::FILE;
die "Should not get here!";