use strict;
use warnings;
use JSON qw(decode_json);
my $json_decoded = decode_json(do {local $/ = undef; <DATA>});

#...your code goes here...

__DATA__
{"foo":"bar",
"baz":["buzz":1]
}