sub connect{
    my $class = $_[0];
    
    if (-e "$_[1]"){ 
    
        my $object = {
            connect => $_[1],
            prepare => '',
            select => '',
            where => {},      #anonymous hash reference
            column => '',
            records => '',
        };
                   
        bless $object, $class;
        return $object; 
    }
    else{
        die "file: $_[1] doesn't reside at path\n";
    }            
}
##</code><code>##

$self->{where}->{name}='test';