# at the top
use Carp qw/cluck/;

# in sub error again:
cluck $msg;