my $sth = $dbh->prepare($sql);
if( $sth ) {
    # prepare hat geklappt, jetzt kannst du execute() aufrufen.
}else{
    # prepare hat nicht geklappt, behandle den Fehler
    #die('Crash to Desktop');

    require Tk::Dialog;

    my $error_dialog = $mw->Dialog(
        -title          => 'Kann Daten nciht aus DB auslesen',
        -text           => 'Fehler: ' . $dbh->errstr(),
       # ....
    );

    my $selected = $error_dialog->Show();
}