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