sub parse_mail {
	my $mail = "@_";
	open (MAIL,$mail) || die "Cannot open $mail, $!";
		@mailf = <MAIL>;
		chomp (@mailf);
	close (MAIL) || die "Cannot close $mail, $!";

	return @mailf;	
}