[...]

$sth->execute($_) or die print "Couldn't execute statement: $DBI::errstr; stopped";

while (my $ref = $sth->fetchrow_hashref()) { }

if ($sth->rows != "0")
{
print "dataset exists \n";
}
else
{
print "nothing found \n";
}

[...]