use Win32::Pipe;
use strict;

my $PipeName = "com2";
my $Pipe;
$| = 1;

my $bServerContinue = 1;
print "Creating pipe \"$PipeName\".\n";


if( $Pipe = new Win32::Pipe( $PipeName ) )
{
  while( $bServerContinue )
  {
    print "Waiting for a client to connect...\n";
    
    if( $Pipe->Connect() )
    {
      my $In;
      
      my $User = ( $Pipe->GetInfo() )[2];
      print "Pipe opened by $User.\n";
      
      $In = $Pipe->Read();
      
      print "Client sent us: $In";
      
      print "Disconnecting...\n";
      $Pipe->Disconnect();
    }
  }
  $Pipe->Close();
}
else
{
  print "\nCould not create pipe\n";
  print "Error: " . Win32::FormatMessage( $Win32::Pipe::Error ) . "\n";
}