my $termin = $dbh->prepare ("INSERT INTO termin (NR, TERMIN) VALUES (?, ?)");
$termin->execute ($num, $wdat);