socket error

use IO::Socket;

my $sock = new IO::Socket::INET (
PeerAddr => '144.xxx.31.142',
PeerPort => '9000',
Proto => 'tcp',
);
die "Could not create socket: $!\n" unless $sock;
print $sock "Hello Andy!\n";
close($sock);

The ip address belongs to a another system in the netrwork.

But i get an error "Could not create socket: Unknown error"

If i give my ip address if my own system i do not have any problems..
Is it because firewall stops me or ....

Pls help.

Cheers,
Jis

Re: socket error

jis wrote:
> use IO::Socket;
>
> my $sock = new IO::Socket::INET (
> PeerAddr => '144.xxx.31.142',
> PeerPort => '9000',
> Proto => 'tcp',
> );
> die "Could not create socket: $!\n" unless $sock;
> print $sock "Hello Andy!\n";
> close($sock);
>
> The ip address belongs to a another system in the netrwork.
>
> But i get an error "Could not create socket: Unknown error"

Try looking in $@ instead of or in addition to $!

Xho

--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB

Re: socket error

jis schreef:

> my $sock = new IO::Socket::INET (
> PeerAddr => '144.xxx.31.142',
> PeerPort => '9000',
> Proto => 'tcp',
> );
> die "Could not create socket: $!\n" unless $sock;

It is easy to combine that:

my $sock = IO::Socket::INET->new(
PeerAddr => '144.xxx.31.142',
PeerPort => '9000',
Proto => 'tcp',
) or die "Could not create socket: ($!) ($@)\n";

--
Affijn, Ruud

"Gewoon is een tijger."