In case the solution was not obvious to other onlookers. Here's the corrected version that I should have known to do in the first place. :/
#!/usr/bin/perl -Tw
# dead simple stupid script that echoes input
use CGI;
use Modern::Perl 2011;
my $head ='<!DOCTYPE html><head></head><body>
<br />
<form method="post" action="/valid-form.cgi">
';
my $form =' <label for="input">Input: </label><input type="text" na
+me="input" value="" />
<input type="submit" value="Post Input" />
';
my $foot ='
</form></body></html>';
print "content-type:text/html; charset=utf-8\n\n";
print $head;
print $form;
my $query = CGI->new;
my $input = $query->param('input');
if (!$input) {
print "<br />No input";
}else{
print "<br />$input";
}
print $foot;
Take note of the additional my
Best wishes.
--Chris out...
#!/usr/bin/perl -Tw
use perl::always;
my $perl_version = (5.12.5);
print $perl_version;
|