my $other_program = 'cat';
my $pid = open my $pipe, " | $other_program ";

print $pipe "blahblah" if alive($pid);