#!/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++;
	}

@lines = split /\n/, $_;

print "<textarea>";

foreach $line (@lines) 	{
 	if($line =~ /test/) { 
$1 =~ s/<p>//gi; 
print $1;

}
	if($line =~ /meta/) { print "$line" };
	}

# print $_;

print "<\/textarea>";