Help for this page
$error=1 if ($hostname =~/\.$/); #trailing . is bad ... else { print "Not a hostname!\n"; }
$hostname =~/^[^-]([a-zA-z\-])+[^-](\.[^-][a-zA-Z0-9\-]+?[^-])+?/;