if ($disco)
{
    print "$host FAILED to respond on $service $ports{$service}\n";
}
else
{
    close $checkport;
}