DB<2> print %{ ( do{ {A=>1} } ) }
A1

##</code><code>##

   print_calling_line( __LINE__,
                       do { A => 1, B => 2, C => 3 }
                     );

##</code><code>##

   print_calling_line( __LINE__,
                       do { A => 1, B => 2, C => 3 },
                       do { A => 1, B => 2, C => 3 },
                       do { A => 1, B => 2, C => 3 }
                     );
...
Called from line 27; caller() reports line 30