Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -wT 
    use strict;
    ...
      $q->p("Thanks for your mail"),
      $q->end_html;
    }
    
  2. or download this
    my ($mail_from) = defined ($_mail_from) =~ /^(\w+\@\w+\.\w+)$/;