open my $pipe, '|-', 'some-program arg1 arg2';
print {$pipe} "some data\n";
close $pipe;