BEGIN {$Carp::Verbose=0;
       $Carp::CarpLevel = 1;  #<-- add this (for your demo)
     };
[download]

6. $Carp::CarpLevel can be set to skip a fixed number of additional call levels. Using this is not recommended because it is very difficult to get it to behave correctly.