my $error = $cgi->error();
if ($error) {
    die $error;
}