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
    }
}
[download]