open(PIPE,"|perl2exe -register > output.txt");
print PIPE "$key";
close(PIPE);