Select Code to Download

$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;

sub dienice {
    my($msg) = @_;
...
    print "$msg\n";
    exit;
}