#!/usr/bin/perl -w
use strict;

use CGI::Fast qw(:standard);
#use CGI::Fast;
use URI::URL;

my $key = param('key');