Select Code to Download

use strict;
use Win32;
...
    }
}
$res = CloseHandle($pipehandle);

use strict;
use Win32;
...
#write the message and close
my $res = WriteFile($pipehandle, $ARGV[0], length($ARGV[0]), [], [] );
my $res = CloseHandle($pipehandle);