#1
my $sql = qq{SELECT name, age FROM People WHERE name LIKE '%e' AND age < 25};

eval {
    #2
    my $sth = $dbh->prepare ($sql);

    $sth->execute (); #3

    #4
    while (my $row = $sth->fetchrow_hashref ()) {
        printf "%-10s %3d\n", @{$row}{'name', 'age'};
    }
};