File::Copy::copy( $srcpath, $dstpath ) || do {
    print FILE strftime "%a, %d %b %Y %H:%M:%S    Es ist ein Fehler beim...", localtime;
    &error_email($Config{smtp},$Config{from}, $Config{to}, $Config{subject}, "FEHLER:...");
    &start_vmmaschine;
    die();
};