Help for this page

Select Code to Download

Select or download this

use warnings;
use POSIX;
...
    { delete $emails{$del}; }
  else { print "<center><font color=red>This data can not be found!</f
+ont></center>";}
}

Select or download this

   $name =~ s/</&lt\;/gi;
   $name =~ s/://gi;
   $name =~ s/TO//gi;
   $name =~ s/FROM//gi;
   $name =~ s/SUBJECT//gi;