#!/usr/bin/perl -w

### Create a socket to read the pages from ISJ
   use IO::Socket;
   $sock = new IO::Socket::INET ( PeerAddr  => 'www.somewhere.com',
                                  PeerPort  =>  80,
                                  Proto     => 'tcp',
                                  Timeout   => 10,
                                );
   die "Socket could not be created $!\n" unless $sock;

   open ( URLforSoc, "$FileCon" ) or die "Cant open the file for reading!!!";
   while ( <URLforSoc> ) {
      print $sock "GET ${URL_VAL} HTTP /1.0\n\n";
      while($line = <$sock>) {
         print "$line";
      }
      $sock->flush();
   }
   close ($sock);
   exit 0;