I'm having trouble reproducing your problem. Namely, I can't get the code to fail. I modified it slightly to something I knew existed, and tried:

use IO::Socket ;

my $host = "www.example.com" ;
my $stream_port = "80" ;

$dst_server = IO::Socket::INET->new(
Proto => "tcp",
PeerAddr => $host,
PeerPort => $stream_port) or warn "Error with vars: $@\n";

$dst_server = IO::Socket::INET->new(
Proto => "tcp",
PeerAddr => "www.example.com",
PeerPort => "80") or warn "Error with strings: $@\n";
[download]

This yields no errors for me. Probably doesn't help you a whole lot, but maybe you can work from it...

_______________
D a m n D i r t y A p e
Home Node | Email