use Win32::Pipe;
$Pipe = new Win32::Pipe("My_Pipe");
$Pipe->Connect();
$Pipe->Write("Hello client, from $0");
$Pipe->Close();