use strict;
use warnings;

use CGI::Carp qw(fatalsToBrowser warningsToBrowser); 
warningsToBrowser(1);

if(my $foo == 'bar') { die "yes"; }