#!/usr/bin/perl
use warnings;
use strict;
use CGI qw/:standard/;
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
my $cgi=CGI->new();
print $cgi->header();
print $cgi->start_html();
my $value=$cgi->param('tapas');  ## No form check if possible 
print "Your favorite Tapas place in Barcelona was $value";
print $cgi->end_html();