sub get_msg {


  my $self = shift;


  my ($param) = @_;


  my $consulta_stack = qq{


                         SELECT *


                         FROM out


                         WHERE app = $param


                         ORDER BY id DESC LIMIT 100;


                        };


  my $sth = $self->{dbh}->prepare($consulta_stack);


  $sth->execute();


  my $msgs = $sth->fetchall_hashref('id');


  $sth->finish;


  return $msgs;


}