print "Please enter the file name:\n";
my $user_data = <>;
open my $FH, '<', $user_data;
my $STH = $DBH->prepare("select * from people where last_name=?");
while (my $last_name = <$FH>) {
    chomp $last_name;
    $STH->execute($last_name);
}