#!/usr/bin/perl

use CGI qw(param);

my $location = param('location');

print "Location: $location\n\n";