#!c:/perl/bin/perl.exe -w

package inquiricao;

use LigacaoBD;

sub ObterResultados
{
	my ($self, $sql) = @_; 
	my $str = LigacaoBD->ObterListaResultados($sql);
    return $str;
}
1;