if( param('select') =~ /\0/ ) { $passage = "*Null Byte Injection* attempted & logged!"; print br() x 2, h1( {class=>'big'}, $passage ); } if( param('select') =~ /\./ ) { $passage = "*Backwards Directory Traversal* attempted & logged!"; print br() x 2, h1( {class=>'big'}, $passage ); }