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;