Select Code to Download

#!/usr/local/bin/perl
use strict;
use warnings;
...
         "Message Text: $body_str\n";
   print "~" x 77, "\n\n";
}

    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