my ($dbh) = @_;

  my ($bbt, $wmr);

  my $sql = 'select BBTicker, WMRic from FXSpots where id = 218';

  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 = ");
    
}