Re: CGI question

How about this?

#!/usr/bin/perl -T

use strict;
use warnings;
use CGI qw/:standard/;

my $q = new CGI;
print $q->header;
print $q->start_html('Animal');
print <<'END';

<html>
<head>
<title>Animal</title>
</head>
<body>
<form action="cgi-bin/animal.cgi" METHOD=POST>
Which animal? <INPUT type="text" name="animal">
<P><INPUT type="submit">
</form>
</body>
</html>
END

print "Show me the <INPUT> ", 'animal', " </INPUT>\n";
print $q->end_html;
[download]

Comment on Re: CGI question Download Code

Replies are listed 'Best First'.
Re^2: CGI question by Anonymous Monk on Feb 09, 2013 at 05:37 UTC
Thanks I will give this a go	[reply]