Perl, JSON::XS example