Sieht im Prinzip so aus, der Code:

#!/usr/bin/perl

package b1gMTA;
use DBI;
use strict;
use vars qw(@ISA);
use Net::Server::PreFork;
no strict 'subs';
@ISA = qw(Net::Server::PreFork);
b1gMTA->run(port=>25, background=0);

exit;

sub process_request {

......

print "220 b1gMTA ready\r\n";
eval {

while( <STDIN> ){
s/\r?\n$//;


....


if($arequest eq ".") {
if(open(PIPE, "|/usr/bin/php -q /home/patrick/pipe.php")) {
print PIPE @mail;


close(PIPE);
## AN DIESER STELLE WIRD DIE VERBINDUNG MIT DEM CLIENT BEENDET
}

....

}
};

}
1;