#!/usr/local/bin/perl -w
use strict;
use WWW::Mechanize;
use CGI;
my $cgi = new CGI;
my $mech = WWW::Mechanize->new();
my $scriptName = $ENV{'SCRIPT_NAME'} || $0;
my ( $requestURI, $QS ) = split /\?/, $ENV{'REQUEST_URI'} || $0;
my $url = $cgi->param('url') || 'http://localhost/';
$mech->get( $url );
my $content = $mech->content;
$content =~ s///ig;
$content =~ s/<\/HTML>//ig;
$content =~ s///ig;
$content =~ s/<\/BODY>//ig;
my @lines = split /\n/, $content;
print $cgi->header ();
print "\n";
print $cgi->start_html( "WAY $scriptName" );
for my $line (@lines) {
if ( $line =~ /a href/i ) {
if ( $line =~ /\n";
print $cgi->end_html;