my $pipe = new Win32::Pipe( '\\.\\My Pipe', 10000)