my $as_str;
open (READIT,"./in.txt");
	$as_str = <READIT>;
close(READIT);

my $json_var = decode_json($as_str);

open (OUT, ">./foo.txt") || die $!;
    print OUT encode_json($json_var);
close (OUT);