#!/usr/bin/perl -wT

use CGI;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);

use strict;
use warnings;

my $q = CGI->new;

my $prev = $q->param('OldBugText'); $prev = '' if ! defined $prev;
$q->param('OldBugText' => $q->param('BugText'));

print $q->header;
print $q->start_html("Problem demo");
print "<h1>Problem demo</h1>\n";
print $q->start_form;
print $q->hidden(-name => "OldBugText");
print "<p>Previous Value: ", $q->escapeHTML($prev), "</p>";
print "<p>", $q->textarea(
	-name    => 'BugText',
	-value   => "Example Text",
	-rows    => 10,
	-columns => 40
), "</p>";
print "<p>", $q->submit('Action', 'Submit'), "</p>";
print $q->end_form;
print "<hr>\n";
print $q->end_html;

1;

__END__