in reply to Re: Pearls (not really) of Perl programmingin thread Pearls (not really) of Perl programming
It could have been worse :-)
open F, $cgi->param('file');
$dbh->do( "SELECT * FROM blah WHERE foo LIKE %" . $cgi->param('search'
+) .'%' );
Results (117 votes). Check out past polls.