#!/usr/bin/perl -T

use strict;
use warnings;
use CGI;
use LWP::Simple;
use Template;

my $cgi = CGI->new;
print $cgi->header;

my $source;
if ($cgi->param('fetch')) {
   $source = LWP::Simple::get($cgi->param('url'));
}

my $template = Template->new({
   INCLUDE_PATH => '/usr/local/tt2/templates'
});
$template->process(\*DATA, {cgi => $cgi, source => $source});

__DATA__
[% WRAPPER html/page html.head.title = 'view source' %]

<form method="POST">
Enter URL: [% cgi.textfield('url') %]
<p>[% cgi.submit('fetch') %]</p>
</form>

[% IF source %]
<hr/>
<pre>[% FILTER html %][% source %][% END %]</pre>
<hr/>
[% END %]

[% END %]