Help for this page

Select Code to Download


  1. or download this
    #!/usr/local/bin/perl
    use strict;
    use warnings;
    ...
             "Message Text: $body_str\n";
       print "~" x 77, "\n\n";
    }
    
  2. or download this
        Let's see an example of how the address may be modified: 
    
            $addr = Email::Valid->address('Alfred Neuman <Neuman @ foo.bar
    +>');
            print "$addr\n"; # prints Neuman@foo.bar