#!/usr/bin/perl --

use warnings;

use strict;

use CGI::Carp qw(fatalsToBrowser);

use CGI qw(header param :standard);

print header;

my $value;

$value = param('tapas');

print start_html;

print "Your favorite Tapas place in Barcelona was $value";

print end_html;
[download]