- my $mid = grep { /^message-id$/i } $msg->header_names;
- say STDERR 'Processing ', $msg->header_raw('Message-ID'),
- " from $from" if $ENV{LASTMSG_DEBUG};
+ my ($mid) = grep { /^message-id$/i } $msg->header_names;
+ say STDERR 'Processing ', $msg->header_raw($mid), " from $from";