use Carp qw(cluck); cluck("var is ($var)");