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