sub bestmx {
    if(not defined(@_)) {
	return(undef);
    } else {
	my($mxs)=shift;
	my($res)='not found';
	my($bmx)=9999999999;
	my($prec,$line,$mx);
	foreach $mx (split(/\n/m,$mxs)) {
	    ($prec,$line)=split(/\s+/,$mx);
	    if($prec < $bmx) {
		$res=$line; $bmx=$prec;
	    }
	}
	return($res);
    }
}
