if ( &socket($host, $i) ) {
    print "\t* Port $i; Open!\n";
    $OPorts[$a] = $i;
    $a++;
    } else { print "\t* Port $i; Closed!\n" }