# descript.pl
# removes all script tags from any url.

use LWP::UserAgent;
use CGI qw(:standard);

my $ua = LWP::UserAgent->new;
$ua->agent("Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET CLR 1.0.3705)");

my $req;
my $res;
my $output;
my $url = param('url');
if ($url) {
  # Create a request
  $req = HTTP::Request->new(GET => $url);
  $req->content_type('text/html');
  # Pass request to the user agent and get a response back
  $res = $ua->request($req);
  $output = $res->content;
  $output =~ s/script/foo/gi;
}

print ("Content-type: text/html\n");
print "Pragma: no-cache", "\n";
print "Expires: Wednesday, 27-Dec-95 05:29:10 GMT", "\n\n";

print "<h2>Page de-scripter 0.1</h2>\n";

print "<form method=\"GET\" action=\"descript.pl\">";
print "Enter a URL: \n";
print "<input size=\"50\" name=\"url\"/>";
print submit("submit", "Descript");
print "</form>";
print "<hr>\n";

print $output;