script one
use strict;
use Win32::Pipe;

sub main() {
	my $pipename = "mynamedpipe";
	print $pipename."\n";
	my $pipe = new Win32::Pipe( $pipename);
	if (! $pipe) {
		die "Cannot create named pipe\n";
	}
	print "pipe created\n";
	$pipe->ResizeBuffer (10);
	print "waiting for the client to connect\n";
 	$pipe->Connect();
	print "client connected\n";

script two

status3 = system ("cmd.exe /c $loc_deploy");
 print("DONE WITH INSTALLATION\n");
#loc deploy writes to named pipe

script three

use strict;
use Win32::Pipe;

my $data = "";
	my $b = 0;
	while (($b = $pipe->Read())) {
		chomp $b;
		$data .= $b;
		print "$b";
	}
	print "Message received: $data\n";
	
	$pipe->Disconnect();
	print "pipe disconnected\n";
	$pipe->Close();
	print "pipe closed\n";
}