如何穿防火墙？？？

[formalin]

我的程序如下，该怎么穿防火墙呢，请赐教。

use IO::Socket;
unless (@ARGV > 1) { die "usage: $0 host document ..." }
$host = shift(@ARGV);
foreach $document ( @ARGV ) {
$remote = IO::Socket::INET->new( Proto => "tcp",
PeerAddr => $host,
PeerPort => "$http(80)",
);
unless ($remote) {die "cannot connect to http daemon on $host" }
$remote->autoflush(1);
print $remote "GET $document HTTP/1.0\n\n";
while ( <$remote> ) { print }
close $remote;
}

[D_Q]

一般80号端口没什么问题，80号是WWW保留端口，如果用其他端口需要知道网关里面映射使用的端口和对方防火墙