Select Code to Download

#!/usr/bin/perl -w
use strict;
...
  3,
  4
);

*** Called from 13; caller() reports 15 (+2) [args: 1 DEREF 3]
*** Called from 21; caller() reports 23 (+2) [args: 1 DO 3]
*** Called from 29; caller() reports 31 (+2) [args: 1 EVAL 3]
*** Called from 37; caller() reports 42 (+5) [args: 1 CODE(0x9983be0) 
+3]