Help for this page

Select Code to Download

Select or download this

sub test1 {
 my ($package, $filename, $line, $subroutine, @rest) = caller(0) ;
...
  &test1(123) ;
  &test2(456) ;

Select or download this
```
<main::test1> 123
<main::test1> 456
```