If this code is called more than once, its worthwhile preparing the statement:

my $emp_exists_sth = $dbh->prepare_cached(q{
 select 1 from employee
 where employee_number = ?
});
...
my $found = $dbh->selectrow_array($emp_exists_sth, undef, $search_for_
+id);
print "Not found\n" unless $found;
[download]