Use the carp, Luke:

use CGI::Carp qw(fatalsToBrowser);
local $SIG{__WARN__} = \&Carp::cluck;
[download]

..add that to the top of your script. -Vlad