my $from_address = grep /^From:\s+/i, @{$message->{headers}};