my $executable = "C:/Users/Desktop/file.exe";

open(-w EXECUTABLE,">$executable") or die "Can't open output file $executable\n";
    while(<EXECUTABLE>) {
    print EXECUTABLE "Something";
    }
    close EXECUTABLE;