open my $pipe, '|-', 'programm' or die $!;
{
    local $SIG{PIPE} = 'IGNORE';
    print $pipe "stuff\n" or die $!;
}
close $pipe or die $?;