Package main;

my ($json);

if($query->param('json')) {     
    $json         = new JSON->utf8(1)->decode($query->url_param('json'));    
}

sub change_gal_name {

    my $gid    = $json->{'gid'};
    my $name   = $json->{'newname'};

    # ...
}