##################################
# complain.pl  - find what's wrong with others' code fast!
# input should come from STDIN.
# options: --plugin <name> - use the named plugin
#          --verbose - display some stuff

use strict;
use warings;
use Linux; use Mozilla; # OK, ommit this one :-)

# General tool stuff
use Getopt::Long;
my @plugins;
my $verbose;
GetOptions('plugin=s' => \@plugins, 'verbose' => \$verbose);

# Get input program.
my $snippet = eval {local $/; return < >};
print $snippet if $verbose;