#!/usr/bin/env perl
use strict;
use warnings;
use DBI;

my $database     = "dbname";
my $host         = "localhost";
my $user         = "username";
my $pw           = "pw";
my $searchstring = "ein in Spalte 1 vorkommender Wert";
my $dsn          = "dbi:mysql:$database:localhost:3306";
my $options      = { RaiseError => 1, AutoCommit => 1 };
my $dbh          = DBI->connect($dsn, $user, $pw, $options);

# Man sollte direkt spaltenwerte nutzen kein "*"
my $sql = 'select column1,column2 from dbname where value1 = ?';
my $sth = $dbh->prepare($query);
my $rv  = $dbh->execute($searchstring);

# bind_columns war schon korrekt...
my ( $column1, $column2 );
$sth->bind_columns(\$column1, \$column2);

while( $sth->fetch ) {
    print "COLUMN1: $column1  COLUMN2: $column2\n";
}