- if( -p $fifofile)
- {
- open(my $fifo,"> $fifofile");
- print $fifo shift(@_)."\n";
- close($fifo);
- }
+ socket(my $conn, PF_UNIX, SOCK_STREAM,0) || die "socket: $!";
+ connect($conn, $socketaddr) || die "socket connect: $!";
+ print $conn shift(@_)."\n";
+ close($conn);