Example

Example problem:

  #!/usr/bin/perl
  
  ...

  $DISSALOWED = (result of some sql query);

  ...

  if ( not $DISALLOWED ) {
      # do something sensitive
  }