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