my $sql = qq/
SELECT id
FROM   Areas
WHERE  areaname = ?
/;

my $sth = $dbh->prepare( $sql ) or print "DB err: " . DBI->errstr;

my $rv = $sth->execute( 'BUFFALO' ) or print DBI->errstr;
my @rows  = $sth->fetchrow_array  or print DBI->errstr;
print "Try BUFFALLO, got id is: @rows \tRV was: $rv\n";


$rv = $sth->execute( undef )  or print "exec undef " . DBI->errstr;
@rows  = $sth->fetchrow_array  or print "No Rows!\n " . DBI->errstr;
print "Try undef, got id is: @rows  \tRV was: $rv \n";

$sth->finish;

$sql = qq/
SELECT id
FROM   Areas
WHERE  areaname is null 
/;

$sth = $dbh->prepare( $sql ) or print "DB err: " . DBI->errstr;
$rv = $sth->execute()  or print "exec undef " . DBI->errstr;
@rows  = $sth->fetchrow_array  or print "fetch " . DBI->errstr;
print "Try areaname is null in sql, got id is: @rows  \tRV was $rv\n";

$sth->finish;

##</code><code>##

Try BUFFALLO, got id is: 23     RV was: 0E0
No Rows!
 Try undef, got id is:          RV was: 0E0 
Try areaname is null in sql, got id is: 1       RV was 0E0