Select Code to Download

use strict;

...
C:\Users\ian\Perl>perl dereference.pl
testing
A

my $vars = { 'testpage' => $data{'testpage'} };
$html->process('index', $vars);

sub process {
    my ($self, $disp, %v) = @_;
    my $testpage = $$v{'testpage'};
    print "<h1>".$testpage."</h1>\n";
}