- my $mid = grep { /^message-id$/i } $msg->header_names;
- say 'Processing ', $msg->header_raw($mid),
- ' sent to ', join ',', @people if $ENV{LASTMSG_DEBUG};
+ my ($mid) = grep { /^message-id$/i } $msg->header_names;
+ say STDERR 'Processing ', $msg->header_raw($mid),
+ ' sent to ', join ',', @people;