<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Tahoma
}
--></style>
</head>
<body class='hmmessage'>
Oi Renato, tudo bem meu codigo ficou assim:<BR>
arquivo teste.pl<BR>
#!/usr/bin/perl<BR>use strict;<BR>use warnings;<BR>use mod::config;<BR>print "Content-type: text/html\n\n";<BR>my $test = new mod::config;<BR>$test->nome({<BR> nome => 'Lucas',<BR> idade => 23,<BR> cidade => 'Bragança Paulista',<BR>});<BR>$test->imprimir;<BR>
<BR>
arquivo mod/config.pm<BR>
package mod::config;<BR>use strict;<BR>use warnings;<BR>use Moose;<BR>has 'nome' => (is => 'rw');<BR>sub imprimir {<BR> my $self = shift;<BR> while(my($indice, $valor) = each(%{$self->nome})){<BR> print $indice . ' = ' . $valor . '<br />';<BR> } <BR>}<BR>1;<BR>
<BR>
Deus é o limite.<BR> </body>
</html>