my $mail = do
{
  my $fh = IO::File->new($MAILBOX)
    or die "unable to read mailbox '$MAILBOX': $!";
  local $/;
  <$fh>
};