Help for this page

Select Code to Download

Select or download this
```
@{$message->{headers}}
```

Select or download this

my ($from_address) = grep /^From:\s/i, @{$message->{headers}}; 
  #^             ^  Parens added to create list context, to get CONTEN
+T rather than COUNT