sub scanstart {
    my($host, $startport, $stopport) = @_;
# [ ... ]