Select Code to Download

>describe user;
id   ...
...
>describe system;
id ...
userid ...

select system.id from user, system
   where user.id = system.userid and user.name = ?

select user.name from user, system
  where user.id = system.userid and system.id = ?

my $sth = $dbh->prepare( "select ..." );  # sql with "?" in there some
+where
$sth->execute( $param );  # pass a value from cgi params
...
else {
    print "<p>No matches found.</p>";
}