my $sspid1 = open( $sockserver1, "sock_server.pl -params |" ) 
    or warn "can't start sock_server.pl: $!";