open my $pipe, "|-", "programm" or die $!;
print while <$pipe>;
close $pipe;