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