use strict;
use warnings;
use SQL::Builder::Select;

my $select = new SQL::Builder::Select;

$select->column( '*' )
       ->table( 'main' )
       ->where_ne_or( 'col1' )
       ->where_eq_and( 'col1', 'col2' )
       ->where_logic( 'a and o')
       ->order_by( 'col1' )
       ->limit_value( 10 )
       ->limit_offset( 20 )
       ->debug( 1 );

print $select->return();