For some reason it either hangs up or doesn't print anything. Can anybody tell me whats wrong?use IO::Socket; my $sock = IO::Socket::INET->new(PeerAddr => 'www.xxxxx.com', PeerPort => '81', Proto => 'tcp' ); while (<$sock>){ print; }
Andrew
Title edit by tye
In reply to Accessing web pages with Perl by Andurs
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |