Select Code to Download

        my $url= $Server . "/cgi-bin/DB_NewTerm.pl";
        my $data = { record => \@record};
...
            Content => encode_json($data) );
        my $response = $ua->request($request);
        print $response->content, "\n";

    my @record=(
        $Tag1, $Tag2, 
        $CommentAll,
        $today
    );

    my @record=(
        $Tag1, $Tag2, 
        $CommentAll,
        "$today"
    );