#  Example 6.9. Creating a named pipe. 
#  ----------------------------------------
#  From "Win32 Perl Programming: The Standard Extensions Second Edition" by Dave Roth
#  Published by Macmillan Technical Publishing.
#  ISBN # 1-57870-216-X 
print "From the book 'Win32 Perl Programming: The Standard Extensions, Second Edition'\nby Dave Roth\n\n";

use Win32::Pipe;
$pipe = new Win32::Pipe( "My Test Pipe", 
                         10000, 
                         PIPE_READMODE_MESSAGE | PIPE_TYPE_MESSAGE
                        ) || die;
print "waiting for a connection\n";
$pipe->connect;

D:\perl\win32\Chapter06>example06_09.pl
From the book 'Win32 Perl Programming: The Standard Extensions, Second Edition'
by Dave Roth

waiting for a connection
Can't locate auto/Win32/Pipe/connect.al in @INC (@INC contains: C:/Perl/lib C:/P
erl/site/lib .) at D:\perl\win32\Chapter06\Example06_09.pl line 14