#!/usr/bin/perl -w

use CGI qw(:all);
use Fcntl qw(:flock);
use HTTP::Request;

print header;		

open(F, "pageinfo.htm");

while(<F>)
    {
    print "$_";
    }

if(!param)
	{
 exit;	
}



$fristring = param('urlinfo');

  use LWP::UserAgent;
  $ua = new LWP::UserAgent;
  $ua->agent("Mozilla/5.0");  
  $ua->timeout('30');
 
  $req = new HTTP::Request GET => $fristring;
  $req->header('Accept' => 'text/html');

  $result = $ua->request($req);
   
$_ = $result->content;

$looper = 0;

while($looper < 5000)
	{
 	s/</&lt;/;
        $looper++;
	}
$looper = 0;

while($looper < 500)
	{
 	s/\n/<BR>/;
	$looper++;
	}

print $_;