Select Code to Download

my $client_socket = new IO::Socket::INET ( [stuff] )
  or die && return ( [other stuff] );

my $checkPort = sub {
    my $port = shift;
...
        return FALSE;
    }
    };

my $port = verify_port($value);

...
    return;
  }
}

my $port = verify_port($value);

...
    (abort execution)
  }
}