use CGI;
use Data::Dumper;

my $q = new CGI( $ENV{QUERY_STRING} );
print Dumper( $q->param('DBNAME') );

# this outputs:
$VAR1 = 'mydatabase SF=dbfield SV="search_string" HEAD=none TAIL=none TEMPLATE_DIR=templates/path/ CONTENT_TYPE=none';