use Carp qw(carp); carp "data $variable not valid in mySub\n";