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

From Carp:

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.

So, you might need to use something like local $Carp::CarpLevel=1+=$whatever; ...