Select Code to Download

use strict;
use IO::Socket;
...
        }
    }
}

parenthesis missing arounf "my" list at test.pl line 7
print (..) interpreted as function at test.pl line 37
...
Global symbol "$port" requires explicit package name at test.pl line 1
+5
Global symbol "$proto" requires explicit package name at test.pl line 
+7
test.pl has too many errors.