Select Code to Download

my $dbh = DBI->connect(@params);
my $gen = SQL::Abstract->new;
my ($insert, @bind) = $gen->insert(atable=>{a=>undef,b=>1,c=>'string'}
+);
...
__END__
$insert eq "INSERT INTO atable ( a, b, c) VALUES ( ?, ?, ? )"
@bind contains undef, 1, "string"