$ perl -e'
   use Carp qw( croak );
   sub foo { croak "bar" }
   foo();
'
bar at -e line 3.
        main::foo() called at -e line 4