Select Code to Download

use CGI;
my $cgi = CGI->new( 'a.b.c=3&a.b.c=4&x.y=4' );
...
use Data::Dumper;
$Data::Dumper::Indent = 1;
print Dumper $args;

$VAR1 = {
  'x' => {
...
    }
  }
};