[Perl & Asp] Autoresponder

[Trinità76]

Potreste aiutarmi a configuarare questo autoresponder per favore?
Di perl non ho mai scriptato niente, in asp qualcosa si.
L'ho provato a configurare e uploadato nel mio sito ma non funziona.
Questo script tutorial è stato preso da webmasterpoint.org.

<%@language=perlscript%> 
 <% 
 use Net::POP3; 
 use Net::SMTP; 

          $srv = Net::POP3->new('mail.PerlScripters.com'); 
          $get = $srv->login('admin', 'password'); 
          $msg = $srv->list(); 


          foreach $m (keys %$msg) { 
           $read = $srv->top($m, 3); 

           for(@$read) { 
           if($_=~/From:/) { 
           local (@d) = split(/ /, $_); 
           @a[$m]=$d[1]; 
           } 
           } 
          } 

      $srv->quit(); 



          for($b=1; $b<=$#a; $b++) { 
          $smtp = Net::SMTP->new('mail.PerlScripters.com'); 
          $smtp->mail( 'autoresponder@PerlScripters.com' ); 

          my $c = ($a[$b]); 
          $smtp->to($c); 
          $smtp->data(); 
          $smtp->datasend("Subject: Automated Response\n"); 
          $smtp->datasend("To: $to\n"); 
          $smtp->datasend("From: autoresponder\@PerlScripters.com\n"); 
          $smtp->datasend("Your mail has been received"); 
          $smtp->dataend(); 
          undef $c; 
          $smtp->quit; 
          } 
 %> 

Per funzionare il mio server deve essere abilitato a qualcosa oltre che all'asp?
In teoria, quando uno manda un'email dovrebbe arrivare il messaggio "Your mail has been received", giusto?