This isn't really a Perl question, but a networking one.

If you can do a telnet <host>:<port> and get a response, your Perl code can do the same. This question depends a lot on the specific configuration of the firewall and the rest of the network, which is information that doesn't belong on a public fourm.

----
I wanted to explore how Perl's closures can be manipulated, and ended up creating an object system by accident.
-- Schemer

Note: All code is untested, unless otherwise stated

use strict;

use IO::Socket;

my $Socket = IO::Socket::INET->new(
                LocalPort => 8190,
                Type      => SOCK_STREAM,
                Reuse     => 1,
                Listen    => 1 );
my ($client);
while($client = $Socket->accept()){
  ##Do something with socket handle
}
[download]

- Tom