my $foo;
my $ok= eval {
    $foo= decode_json( $foo_info );
    1;
};
if( ! $ok ) {
    my $err= $@;
    flash error => "Failed";
    warn "JSON Decoder got '$err'";
};

# Now we have the decoded data structure in $foo
warn Dumper $foo;