use strict;
use warnings;

use Win32::Pipe;

my $jobPipe = new Win32::Pipe('jobPipe') || die "Can't Create Named Pipe 'jobPipe'\n";

while (1) {
	if (!$jobPipe->Connect()) {
		print "jobPipe connect failed\n";
		last;
	}
	print "client connected\n";
	
	my $line = '';
	
	while (my $buf = $jobPipe->Read()) {
		$line .= $buf;
	}
	print "read '$line' from jobPipe\n";
	
	$jobPipe->Disconnect();
	last if (lc(substr($line,0,4)) eq 'exit');
}

$jobPipe->Close();

exit(0);

##</code><code>##

use strict;
use warnings;

use Win32::Pipe;

my $jobPipe = new Win32::Pipe("\\\\.\\PIPE\\jobPipe") or die "could not open jobPipe\n";

$jobPipe->Write("Dir *.pm\n");
$jobPipe->Close();


exit(0);