wrlog{
    my $msg        = shift;
    my $logfile    = shift;
    open LOG, ">>$logfile" or die "Konnte Logdatei nicht oeffnen";
    print LOG scalar(localtime(time)) . " : " . $msg . "\n";
    close LOG or die "Konnte Logdatei nicht schliessen";
}