#!/usr/bin/perl -w
use DBI;
use strict;

my $hDB = DBI->connect("DBI:mysql:test;host=localhost"
        . ";mysql_read_default_file=$ENV{HOME}/.my.cnf",
        undef, undef, {RaiseError => 1})
        or die "can't connect\n";

my $Vars = { 'userid' => 'joe', 'password' => 'secret'};

DBI->trace ( 0 );
my $UserID   = $hDB->quote ( $Vars->{ userid } );
my $Password = $hDB->quote ( $Vars->{ password } );
DBI->trace ( 0 );

print "$UserID $Password\n";

$hDB->disconnect();

__END__
'joe' 'secret'