Select Code to Download

#!/usr/bin/perl -wT 
use strict;
...
  $q->p("Thanks for your mail"),
  $q->end_html;
}

my ($mail_from) = defined ($_mail_from) =~ /^(\w+\@\w+\.\w+)$/;