print ">${unixfrom}\n";


##</code><code>##

{
    local $, = "\n";
    print '>' . $unixfrom,
          $return_path[$j],
          $received[$j],
          $date[$j],
          $from[$j],
          $to[$j],
          $subject[$j],
          $message_id[$j],
          $mimeversion[$j],
          $content_type[$j],
          $xstatus[$j],
          $xkeywords[$j],
          $xuid[$j];
}