## somewhere at the top of your application. BEGIN { package Devel; use Carp qw[ cluck ]; sub CLONE { cluck "Devel::CLONE called with args [ @_ ]"; } }