Help for this page

Select Code to Download


  1. or download this
    use strict;

...
C:\Users\ian\Perl>perl dereference.pl
testing
A
  2. or download this
    my $vars = { 'testpage' => $data{'testpage'} };
$html->process('index', $vars);
  3. or download this
    sub process {
    my ($self, $disp, %v) = @_;
    my $testpage = $$v{'testpage'};
    print "<h1>".$testpage."</h1>\n";
}