Yet Another CPAN Grep

WWW-Kinghost-Painel ( E/ED/EDUARDOW/WWW-Kinghost-Painel-0.04.tar.gz, EDUARDOW, 2012; MetaCPAN )

WWW-Kinghost-Painel/lib/WWW/Kinghost/Painel.pm ( view source; MetaCPAN )

use WWW::Mechanize;
        use HTML::TreeBuilder::XPath;
        use HTML::Entities;
        use JSON;
        use DBI;
        use Net::FTP;
        
        $VERSION = '0.04' ;
        
        my

sta =>  $strErro,
            );
            my $json = \%resposta;
            my $json_text = to_json($json, { utf8  => 1 });
            print $json_text;
            exit;
	}
	
	sub erroFTP
	{

tp =>  $ftperror,
            );
            my $json = \%resposta;
            my $json_text = to_json($json, { utf8  => 1 });
            return $json_text;
            exit;
	}
        
        sub