Help for this page
$id = q|3';DROP TABLE people;SELECT * FROM people WHERE id = '3|;
sub SelectProfile { my ( $id, $dbh ) = @_; ... my $rowdata=$sth->fetchrow_hashref; return $rowdata; }