#!c:/perl/bin/perl.exe

use DBI;

my $dbh = DBI->connect("dbi:ODBC:Market_Data_prod", "karl", "secret");

my ( $bbt, $wmr );

my $sql = 'select BBTicker, WMRic from FXSpots where id = 10'; # i can get all..

my $sth = $dbh->prepare($sql);

$sth->execute() || die "ERROR Unable to execute sql statment $sql...+";

$sth->bind_columns( \$bbt, \$wmr );

$sth->fetch;

# print ("BBticker = $bbt WMRic = "); # ...you missed $wmr

print("BBticker = $bbt WMRic = $wmr");

__END__

C:\Dokumente und Einstellungen\karl\Desktop\market_data>market_data.pl
BBticker = foo WMRic = bar