Threads i perl

Hvordan benytter man tråde i perl

Jeg har en SMTP lisner på port 25, men hvis den modtager for store mails kan der ikke komme andre igennem, derfor ønskes en ny tråd opstartet når den første process er optaget.

/BBA

#kode start#
  use Net::SMTP::Server;
  use Net::SMTP::Server::Client;

      $server = new Net::SMTP::Server('10.0.0.2', 25,)||
        croak("Unable to handle client connection: $!\n");
system('CLS'); # clear screen
print "--- SMTP Waiting for mail ---\n"; # just printout for information

      while($conn = $server->accept()) {

        my $client = new Net::SMTP::Server::Client($conn) ||
            croak("Unable to handle client connection: $!\n");

        $client->process;

my $from = $client->{FROM};
my $to  = $client->{TO};
my $msg  = $client->{MSG};

print length($msg);

if (length($msg > 10))
{print "For stor mail !!\n"}

print "incoming message ... \n";
print "DATA : $msg \n";
#kode slut#