use open ':std', ':encoding(UTF-8)';

print($data->{cat}, "\n");