Select Code to Download

    $VAR1 = {
              'SPRequest' => {
...
                           'win.os_part_size' => '1'
                         }
            };

my $form_data_file = "/tmp/${hostname}_${macaddr}.json";
open FH, ">$form_data_file" or die "Could not open $form_data_file. :$
+!\n";
print FH to_json( \%formdata, {pretty=>1} );
close FH;

[red@tools-dev1 psong]$ cat /tmp/localhost_47-00-11-22-00-30.json 
{
...
          "win.os_part_size" : "1"
       }
}

my $form_data_file_csv = "/tmp/${hostname}_${macaddr}.csv";
# Text::CSV::Slurp wants arrayref of hashref
...
open FH, ">$form_data_file_csv" or die "Could not open $form_data_file
+_csv. :$!\n";
print FH $csv;
close FH;

[red@tools-dev1 psong]$ cat /tmp/localhost_47-00-11-22-00-30.csv ; ech
+o
.submit,22406,SPRequest,class
true,HASH(0x8d81918),HASH(0x8d67980),SPRequest