use strict;
use warnings;

use Fatal qw(open close); # make open, close die on failure

if($version eq "XP") {
	my $success = `wmdist -e $input SUCCESS`;
	if ($success) {
		my $FH = undef;
		open($FH, "> XP_success.txt");
		print $FH, $success;
		close $FH;
	} else {
		# no output from success command
	}
}