#!/usr/local/bin/perl

use visual;

 $z = {
 	"cat" => "nc",
 	"gen" => "m",
 	"sem" => {
 		"cla" => "animal",
 		"encic" => ["o gato mia", "gosta de espinhas"] 
 	},
 	"prov" => "Gato escaldado, de agua tem medo",
 	"exe" => "O gato mia"
 };

 page ($z,"Gato","resultado da funcao page");