Select Code to Download

$error=1 if ($hostname =~/\.$/); #trailing . is bad
...
else {
    print "Not a hostname!\n";
}

$hostname =~/^[^-]([a-zA-z\-])+[^-](\.[^-][a-zA-Z0-9\-]+?[^-])+?/;