#!/usr/bin/perl -wls

use strict;
use warnings;

our $user ||= undef;
our $pass ||= undef;

use DBI;
my $dbh = DBI->connect(q{DBI:mysql:test}, $user, $pass) 
  or die "connect failed";
my $table = 'foo';
my $sth = $dbh->prepare("select col1 from $table where col1 = ?");
my $value = 3;
$sth->execute($value) or die("execute failed");

while (my $href = $sth->fetchrow_hashref()) {
  foreach my $key (keys %{$href}) {
    print qq{$key: } . $href->{$key};
  }
}

$sth->finish();
$dbh->disconnect();

__END__

$ ./646467.pl -user ***** -pass *****
col1: 3