Select Code to Download

Select or download this

package TestSite;
use base 'CGI::Application';
use warnings;
...
    return $template->output;
}
1;

Select or download this

<html>
    <head>
        <title>One</title>
...
        </form>
    </body>
</html>

Select or download this

<html>
    <head>
        <title>Two</title>
...
        <p><a href='index.pl?rm=mode1'>Click to go back to one</a></p>
    </body>
</html>

Select or download this

<html>
    <head>
        <title>One</title>
...
        </form>
    </body>
</html>

Select or download this

#!/Perl/bin/perl

use warnings;
...
my $template = HTML::Template->new(filename => 'mode1a.html');

print "Content-Type: text/html\n\n", $template->output;

Select or download this

#!/Perl/bin/perl

use warnings;
...
$template->param(test_post => $q->param('test_post'));

print "Content-Type: text/html\n\n", $template->output;

Select or download this

<html>
    <head>
        <title>One</title>
...
        </form>
    </body>
</html>

Select or download this

<html>
    <head>
        <title>Two</title>
...
        <p><a href='one.pl'>Click to go back to one</a></p>
    </body>
</html>