sub test1 {
 my ($package, $filename, $line, $subroutine, @rest) = caller(0) ;
 print "<$subroutine> @_\n" ;
}

  *test2 = \&test1 ;

  &test1(123) ;
  &test2(456) ;


##</code><code>##

<main::test1> 123
<main::test1> 456