Select Code to Download

#!/usr/bin/perl -w

...

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