Help for this page

Select Code to Download


  1. or download this
    my $from_address = grep /^From:\s+/i, @{$message->{headers}};
  2. or download this
    my $from_address = ( grep /^From:\s+/i, @{$message->{headers}} )[0];