#!/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'

##</code><code>##

my ($UserID, $Password) = map {$hDB->quote( "$_" )} 
        ($Vars->{userid}, $Vars->{password});

##</code><code>##

  my $UserID   = $hDB->quote ( "$Vars->{'userid'}" );
  my $Password = $hDB->quote ( "$Vars->{'password'}" );

##</code><code>##

   # from the DBI.pm module
   1126     sub quote {
   1127     my ($dbh, $str, $data_type) = @_;
   1128
   1129     return "NULL" unless defined $str;
   # more code follows .....    

##</code><code>##

 _  _ _  _  
(_|| | |(_|><
 _|