[...]
my $pipe = new Win32::Pipe("testPipe");
my $result = $pipe->Write("Howdy! This is cool!");
[...]