Hello, get page with IO::Socket , but having trouble saving to file This is what I got:
use IO::Socket; $host = "www.cnn.com"; $document = "/newhomepage1.htm"; foreach $doc ($document) { $remote = IO::Socket::INET->new( Proto => "tcp", PeerAddr => $host, PeerPort => "http(80)", ); } $EOL = "\015\012"; $BLANK = $EOL x 2; unless ($remote) { die "cannot connect to http daemon on $host" } $remote->autoflush(1); # print $remote "GET $document HTTP/1.0" . $BLANK; open(LOG9,">>/var/www/html/bad/bali.txt"); print LOG9 " $remote \"GET $document HTTP/1.0\" . $BLANK"; while ( <$remote> ) { print LOG9 } close $remote; close(LOG9); Help , what am I doing Wrong ?? Jim -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]