sub parse_mail {
	my $mail = $_[0];
	print $mail;
	open (MAIL,$mail) || die "Cannot open $mail, $!";
		@mailf = <MAIL>;
		chomp (@mailf);
		my $line;
		foreach $line (@mailf) {
				print $line;
				}
		print @mailf;
	close (MAIL) || die "Cannot close $mail, $!";

	return @mailf;	
}