Select Code to Download

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

my $mail = do
{
...
  local $/;
  <$fh>
};