if( $Pipe->Connect() )
    {
      my $In;
      
      $User = ( $Pipe->GetInfo() )[2];
      print "Pipe opened by $User.\n";
      
      $In = $Pipe->Read();
      
      print "Client sent us: "$In";
      
      print "Disconnecting...\n";
      $Pipe->Disconnect();
    }