#!/usr/bin/perl -T
use strict;
use warnings;
use CGI;
use LWP::Simple;
use HTML::Template;
my $cgi = CGI->new;
my $template = HTML::Template->new(
filehandle => \*DATA,
associate => $cgi,
);
if ($cgi->param('fetch')) {
$template->param(source => LWP::Simple::get($cgi->param('url')));
}
print $cgi->header, $template->output;
__DATA__
view source