Help for this page

Select Code to Download

Select or download this

    
@from_addresses = Mail::Address->parse($from);
my $address;
...
if (@from_addresses) {
$from = $from_addresses[0]->address();
} else {exit;}

Select or download this
```
mike miky [mike(at)mike.bla]
```