Select Code to Download

my @row = $dbh->selectrow_array(q{SELECT my_data1, my_data2 WHERE furn
+iture_type=?},undef, $furniture_type);

    $dbh = DBI->connect($DBDSN, 
               $DBUser,
               $DBPassword,
               {RaiseError => 1});

    my ($furniture_name, $price);
    chomp($furniture_type);
    $sth->execute($furniture_type) or die "Couldn't execute: '$DBI::er
+rstr'";
    $sth->bind_col(1, \$furniture_name);
    $sth->bind_col(2, \$price);

chomp($furniture_type);
$sth->execute($furniture_type) or die "Couldn't execute: '$DBI::errstr
+'";
$sth->bind_columns(\my ($furniture_name, $price));