#!/usr/bin/perl -w use CGI qw(:standard); use LWP::UserAgent; $ua = new LWP::UserAgent; $ua->agent("AgentName/0.1 " . $ua->agent); # Create a request my $req = new HTTP::Request GET => param('file'); $req->content_type('application/x-www-form-urlencoded'); $req->content('match=www&errors=0'); # Pass request to the user agent and get a response back my $res = $ua->request($req); # Check the outcome of the response print "Content-type: text/html\n\n"; if ($res->is_success) { print ''; print ''; print ''; print ''; print ''; print '' . param('file') . ''; print ''; print ''; print "

" . param('file') . "

"; print '

';

	$foo = $res->content;
	$foo =~ s\&\&\g;
	$foo =~ s\<\<\g;
	$foo =~ s\>\>\g;

        print $foo;
	print '

'; print ''; } else { print "Sorry, file not found\n"; }