--- Valid.pm    Fri Jul  9 01:34:55 1999
+++ Valid.pm.new        Wed May 10 11:03:20 2000
@@ -186,6 +186,9 @@
   my $self = shift;
   my $addr = shift;

+  # Since many AOL users think AOL _is_ the internet
+  # they sometimes leave off the .com, so let's help them
+  $addr .= ".com" if $addr =~ /aol$/i;
   $addr =~ s/\s+//g if $addr =~ /aol\.com$/i;
   $addr =~ s/,/./g  if $addr =~ /compuserve\.com$/i;
   $addr;
@@ -431,7 +434,9 @@
 Specifies whether calls to address() should attempt to correct
 common addressing errors.  Currently, this results in the removal of
 spaces in AOL addresses, and the conversion of commas to periods in
-Compuserve addresses.  The default is false.
+Compuserve addresses.  This will also tack on a .com to AOL addresses
+which fail to have them, ie. user@aol which is common for AOL users to
+do. The default is false.

 =item fqdn ( <TRUE>|<FALSE> )