> open(M,"|-") || print "Problem with Domain Forwarding (Fork not \
> possible)" && exit 111;
> $uservariable="$ENV{LOCAL}\@$ARGV[0]";
> exec "/var/qmail/bin/qmail-inject",$uservariable || print "Problem \ 

Are you aware that "exec" _never_ returns?

> with Domain Forwarding (Could not execute qmail-inject)" && exit 111;
> if ($result == 0){
>   while(<STDIN>) { print M $_; }
> }
> close M;

So you didn't close M (but perl does), and lose anything on STDIN.

Try "system" instead.

Greetings,
Erich

Reply via email to