if($version eq "XP")
    {
        system("wmdist -e $input SUCCESS > XP_success.txt");
        system("clear");
        system("wmdist -e $input FAILED > XP_failed.txt");
        $|=1;
        system("wmdist -e $input WAITING > XP_waiting.txt");
    }

##</code><code>##

system("cls");