package Aqui;

sub new {
        my $invocador = shift;
        my $classe = ref($invocador) || $invocador;
        my $auto = { };
        return bless $auto, $classe;
}

sub hello {
        print "Hello world\n";
}