goto_test.pl

#!/usr/bin/perl

use strict;
use warnings;

package Test;

use Carp;

sub hoge {
  Carp::croak("die"); # mesasge is "die at goto_test.pl line 22."
  print join " ", @_;
};

package main;

sub xxx {my ($a,$b) = @_;
    $a = 2, $b = 3; @_ = ($a, $b);
    goto &Test::hoge
}

xxx(1,2)