Perl dbi with mysql problem

[ginda]

Im having problems using scalars in a sql statement to extract info from a mysql database, heres the code if anyone could help..

#Windows-based Perl/DBI/example
use DBI;

print "Search which field? "; # print out the question
my $data1; # declare" the variable
$data1 = <STDIN>; # ask for the username
chomp($data1); # remove "new line"

print "for what data? "; # print out the question
my $data2; # declare" the variable
$data2 = <STDIN>; # ask for the username
chomp($data2); # remove "new line"

#open connection to database
$dbh = DBI->connect('dbi:mysql:exelstock');

#prepare and execute SQL statement
my $string;
$string = "SELECT * FROM stock WHERE", ( '$data1' ) = ( '$data2' ) ;
$sth = $dbh->prepare( $string );
$sth->execute();
die "Could not execute SQL statement ... maybe invalid?";


#output database results
while (@row=$sth->fetchrow_array)
{ print "@row\n" }

[QuietDean]

Hi, welcome to the forums.

I'm well rusty on Perl, so lets go with the basics.

Whats the result of printing $string out after you assigned the variables? That can tell us if there is anything wrong with the query.