use strict;
use DBI;
    my $db = DBI->connect("dbi:mysql:dbname=revsys_elance", 
		       "revsys_revsys",
		       "kage");
bind_col(q{SELECT MEH, MOOSE FROM BLEH WHERE pissant = ?},q{"3"},2);

sub bind_col	{
my $sth;
my $statement = shift;
my $execute = shift;
my $num = shift;
my @col;
$sth = $db->prepare($statement);
$sth->execute($execute);
for (1 .. $num) {
$sth->bind_col($_, \$col[$_]);
}

while ($sth->fetch) {
print @col;
}
}