Select Code to Download

sub ServerData {     //(package Get;
    $GSD_JSON = do {
...
    $GSD_Handle = JSON->new;
    return ($GSD_Handle->decode($GSD_JSON));
    }

sub ServerData {     //(package Get;
    $GSD_JSON = do {
...
    $GSD_Handle = JSON->new;
    return (%{$GSD_Handle->decode($GSD_JSON)});
    }

sub ServerData {     //package Update;
%USD_In = %_;
...
    print BUFFER encode_json(%USD_In);
    close (BUFFER);
    }