Select Code to Download

#!/usr/bin/perl -w
use strict;
...
  %{{ A => 1, B => 2, C => 3 }}
);

Called from line 11; caller() reports line 11
Called from line 15; caller() reports line 16

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

print "\n";

    Called from line 22; caller() reports line 22 [args: A 1 D 4 C 3 E
+ 5 B 2]
    Called from line 23; caller() reports line 23 [args: HASH(0x974070
+)]
...
*** Called from line 122; caller() reports line 124 [args: space_1 str
+ings_are_scalar]
*** Called from line 126; caller() reports line 129 [args: space_1 spa
+ce_2 strings_are_scalar]
*** Called from line 131; caller() reports line 134 [args: space_1 spa
+ce_2 strings_are_scalar space_3 space_4]