Adding the following to my scripts when I was figuring this sort of thing out helped greatly.
use CGI::Carp qw(fatalsToBrowser);
To clean it up in general I would do it this way
#!/usr/bin/perl
use warnings;
use strict;
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser);
my $value=param('tapas');
print header;
print start_html;
print "Your favorite Tapas place in Barcelona was $value";
print end_html;
I didn't test that, but it should work. But of course thats just one way. perldoc CGI is also a good source of information.
Ted
--
"That which we persist in doing becomes easier, not that the task itself has become easier, but that our ability to perform it has improved."
--Ralph Waldo Emerson
|