my $perl;
my $ok = eval { $perl = parse_json('[x]'); 1; };

if (! $ok){
    warn "json load failed...\n";
    ...; # do something else
}