#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

use DBI;

my $dbh = 'DBI'->connect('dbi:SQLite:dbname=:memory:', "", "");
my $id =  q{42', 'Batman'); DROP TABLE customers; -- };
say qq('$id');
say $dbh->quote($id);

__END__
Output:
'42', 'Batman'); DROP TABLE customers; -- '
'42'', ''Batman''); DROP TABLE customers; -- '