Select Code to Download

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

__END__
'joe' 'secret'

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

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

   # from the DBI.pm module
   1126     sub quote {
...
   1128
   1129     return "NULL" unless defined $str;
   # more code follows .....

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