@request = split(/ /,$output); # splitten des outputs in Teile (nach Leerstellen)
    for($i=0;$i<=$#request;$i++) {
        if ($request[$i] =~ /\d{3,5}/) {    
            $requestid = $request[$i];
            $correct = "true";
        }
    }
# wenn $correct = true wird @message mit einem bestimmten inhalt gefüllt

# Füllen von @message

print @message; # Testweise ausgabe
&sendresponse($sender); #Aufruf des Autoresponders

# einige weitere Kommandos bis zum ende

sub sendresponse()
{
    my $toaddr = $_[0];
    
    use Net::SMTP;
    my $smtphost = '###';
    my $account = '###';
    my $fromaddr = '###';
    
    my $smtp = Net::SMTP->new($smtphost,
            Hello => $account,
            Debug => 1);
    my $OK;  
    $OK = $smtp->mail($fromaddr);  
    $smtp->recipient($toaddr);  
    $OK = $smtp->data(\@message);  
    $OK = $smtp->quit();

} ## sub sendresponse