get page with IO::Socket , but having trouble saving to file

[FLAHERTY, JIM-CONT]

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]