for ($j=2; $j<=$message_count+1;$j++){
                print "\>$unixfrom\n";
                print "$return_path[$j]\r";
		print "$received[$j]\r";
		print "$date[$j]\r";
		print "$from[$j]\r";
		print "$to[$j]\r";
		print "$subject[$j]\r";
		print "$message_id[$j]\r";
		print "$mimeversion[$j]\r";
		print "$content_type[$j]\r";
		print "$xstatus[$j]\r";
		print "$xkeywords[$j]\r";
		print "$xuid[$j]\r";		
		}