Select Code to Download

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

$DBH->do("select * from people where last_name='$user_data'");

Jones'; drop table people; --

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

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

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

print "Please enter the file name:\n";
my $user_data = <>;
...
    chomp $last_name;
    $STH->execute($last_name);
}