#!/usr/bin/perl -t use strict; use warnings; use CGI; use CGI::Carp qw(fatalsToBrowser warningsToBrowser); use Data::Dumper; my $q = new CGI; print $q->header(); if ($q->param('action') && $q->param('area')) { die Dumper $q->param('area'); } else { print q# #; }