#!/usr/bin/perl

    use strict;
	use warnings;
	
	use AndySQL;
	
	# CONFIG VARIABLES
	my $database 	= "blog_counter";
	my $host 		= "localhost";
	my $port	 	= "3306";
	my $user 		= "dev";
	my $pass 		= "123foobar84!?";
	
	my $DB = AndySQL->new($user,$pass,$host,$port,$database,1);
	
	my $tbl = $DB->table('Page_Counter');
	   $tbl->select_options("LIMIT 50");
	
	my $total = $tbl->count();
	
	print "Total found: $total \n";
	
	my $tbl2 = $DB->table('Testing');
	   $tbl2->select_options("LIMIT 50");
	   
	my $total = $tbl2->count();
	
	print "Total found: $total \n";
	
	my $total2 = $tbl->count();	
	
	print "Total found: $total2 \n";