get valid sqlite table and column names for sqlite3

sql_abs.pl

✔  21:00 ~ $ cat sql_abs.pl
#!/usr/bin/perl

use feature 'say';
use SQL::Abstract;

my $abs = SQL::Abstract->new();
say join ',', $abs->select('my_table', [ 'my_table.my_id' ], { my_id => '1' });

my $abs = SQL::Abstract->new( quote_char => '`' );
say join ',', $abs->select('my_table', [ 'my_table.my_id' ], { my_id => '1' });

✔  21:00 ~ $ perl sql_abs.pl
SELECT my_table.my_id FROM my_table WHERE ( my_id = ? ),1
SELECT `my_table.my_id` FROM `my_table` WHERE ( `my_id` = ? ),1