Select Code to Download

if ( not length $message->as_string
  or $message->as_string =~ /\A\s*\z/ )
...
    next;
}

my @errors;

...
  foreach my $e ( @errors ) { cluck "in_filepath: $e"; }
  next;
}