Net::SMTP::Server problemer

du skal nok lægge koden her for  vi har en chance for at sige hvad der er galt

Her er kode eksempel ...

Er der nogen der kan hjælpe ... ??

<kode start>
  use Net::SMTP::Server;
  use Net::SMTP::Server::Client;
 
      $server = new Net::SMTP::Server('10.0.0.20', 25) ||
        croak("Unable to handle client connection: $!\n");

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

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

$client->process || next;

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

...

<kode slut>