use CGI::Carp qw(fatalsToBrowser);
....
....
if($error) { die "Error message"; }