package Tools::CGIDump;

use strict;
use warnings;

# Standard mod_perl needs
use Apache::Constants qw(OK);
use CGI;
use Data::Dumper;

sub handler {

    # Setup apache, cgi, raw, etc.
    my $apache = shift;
    my $cgi    = new CGI;

    my @track_name = $cgi->param("track_name");

    print Dumper($cgi);
    print Dumper( \@track_name );

    return OK;
}

1;