use strict;
use DBI;
    my $db = DBI->connect("dbi:mysql:dbname=database", 
		       "user",
		       "password");
bind_col(q{SELECT MEH, MOOSE FROM BLEH WHERE pissant = ?},q{"3"},'$meh', '$moose');

sub bind_col	{
my $sth;
my $statement = shift;
my $execute = shift;
$sth = $db->prepare($statement);
$sth->execute($execute);
$sth->bind_columns(\(@_));
while ($sth->fetch) {
print @_;
}
}

$db->disconnect();

##</code><code>##

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;
}
}

##</code><code>##

&subroutine('$moo')
sub soubroutine   {
my $var = shift;
   $var = "moo";
   print $moo;
}