in reply to Re: Pearls (not really) of Perl programming
in thread Pearls (not really) of Perl programming

It could have been worse :-) 

eval $cgi->param('action');
open F, $cgi->param('file');
$dbh->do( "SELECT * FROM blah WHERE foo LIKE %" . $cgi->param('search'
+) .'%' );

[download]

In Section Meditations