print "Please enter the last name:\n";
my $user_data = <>;
chomp $user_data;

my $STH = $DBH->prepare("select * from people where last_name=?");
$STH->execute($user_data);