sub DATUM{
    ($sek,$min,$std,$tag,$mon,$jahr,$wtag)=localtime(time);
    $mon=$mon+1;
    if (length($mon) == 1){
           $mon="0$mon";
    }
    if(length($tag) == 1){
         $tag="0$tag";
    }
    if($std<10){
        $sdt="0$std";
    }
    if($min<10){
        $min="0$min";
    }
    $jahr=$jahr+1900;
    $Uhrzeit= "$std:$min";
    $Datum="$tag.$mon.$jahr";
}


sub MAIN{
    DATUM;
    $PCNAME="TESTNAME";
    $ZIELB="C\:\\Testordner";
    $POWERARC="C\:\\programme\\powerarchiver\\powerarc.exe";
    $WINZIP="C\:\\programme\\Winzip\\wzzip.exe";
    $ZIPPFAD="C\:\\TEMP\\ZIPTEST";
    
    unless(-e "$ZIPPFAD\\$Datum"){
        mkdir($ZIPPFAD,0777);
    }
    unless(-e $POWERARC){
        unless(-e $WINZIP){
            system("copy $ZIELB $ZIPPFAD");
            print"$!\n";
            unlink("$ZIELB");
        }
        else{
            system("C\:\\programme\\Winzip\\wzzip.exe -a $ZIPPFAD\\$Datum\\$PCNAME\-$Uhrzeit $ZIELB\\*");
        }
    }
    else{
        system("C\:\\programme\\powerArchiver\\powerarc.exe -a $ZIPPFAD\\$Datum\\$PCNAME\-$Uhrzeit $ZIELB\\*");
    }
}
MAIN;