$sth = $dbh->prepare("select task_id, originator_name, creation_date, due_date, severity from tasks order by task_id") or &dienice ("Can't get problem report: $!");

$sth->execute;

##</code><code>##

sub dienice {
    my($msg) = @_;
    print "<h2>Error</h2>\n";
    print "$msg\n";
    exit;
}