if ($ENV{'QUERY_STRING'}) {
  print "Location: http://www.something.net/badboy.html\n\n";
  # Do some logging if you wish here, although I don't know if it's possible
  exit;
}