#!/usr/bin/perl -w

use strict; 
use diagnostics;
use Apache2::Request;

my $apr         = Apache2::Request->new($r); 
$action         = $apr->param('a');