open my $fh, "|-", "send_nsca" or die "Arggghh, couldn't open pipe to send_nsca: $!"; print $fh "All you want to send to STDIN of send_nsca"; close $fh or die "Something bad happended while piping to send_nsca: $!";