sub open_sql                
               
               
       #SQL öffnen
{
    $dbh = DBI->connect($_[1]);
    $sth  = $dbh->prepare($_[0]);
    $sth->execute;
}
sub close_sql { $sth->finish(); $dbh->disconnect();}            #SQL schliessen....