#!/usr/bin/perl
use strict;
use warnings;

my @tgt = (
    'use CGI',
    'use CGI ()',
    'use CGI (); CGI->compile(qw(param header))',
    'use CGI (); CGI->compile(qw(param header)); CGI->new',
    'use CGI (); CGI->compile(":all")',
    'use CGI qw(-compile :all)',
    'use CGI::Carp',
    'use CGI::Carp ()',
    'use CGI::Cookie',
    'use CGI::Cookie ()',
    'use CGI::Cookie (); CGI::Cookie->new(-name=>"hoge")',
    'use base "CGI::Application"',
    'use base "CGI::Application"; __PACKAGE__->new',
    'use base "CGI::Application"; $ENV{CGI_APP_RETURN_ONLY}=1; __PACKAGE__->new->run',
    'use CGI::Lite',
    'use CGI::Lite ()',
    'use Template',
    'use Template ()',
    'use Template (); Template->new',
    'use Template (); Template->new->process("x.tmpl",{})',
    'use Template (); Template::Config->preload',
    'use HTML::Template',
    'use HTML::Template ()',
    'use HTML::Template (); HTML::Template->new(filename=>"x.tmpl")->output',
    'use FileHandle',
    'use FileHandle ()',
    'use FileHandle (); FileHandle->new',
    'use IO::File',
    'use IO::File ()',
    'use IO::File (); IO::File->new',
    'use IO::File (); IO::File->new->open("hoge")',
    'use Fcntl',
    'use Fcntl ()',
    'use Fcntl qw(:DEFAULT)',
    'use POSIX',
    'use POSIX ()',
    'use Storable',
    'use Storable ()',
    'use DateTime',
    'use DateTime ()',
    'use DateTime (); DateTime->now( time_zone=>"local" )',
    'use DBI',
    'use DBI ()',
    'use DBI (); DBI->install_driver("mysql")',
    'use DBI (); DBI->connect("DBI:mysql:database=test;host=localhost","root",undef)',
    'use base "Class::DBI"',
    'use base "Class::DBI"; __PACKAGE__->connection("DBI:mysql:database=test;host=localhost","root",undef)',
    'use base "Class::Accessor"',
    'use base "Class::Accessor"; __PACKAGE__->mk_accessors("hoge")',
    'use base "Class::Accessor::Fast"',
    'use base "Class::Accessor::Fast"; __PACKAGE__->mk_accessors("hoge")',
    'use Attribute::Handlers',
    'use Attribute::Handlers ()',
    'use Digest::MD5',
    'use Digest::MD5 ()',
    'use Encode',
    'use Encode ()',
    'use Encode::Guess',
    'use Encode::Guess qw(euc-jp)',
    'use Encode::Guess qw(euc-jp shiftjis iso-2022-jp)',
    'use encoding "utf8"',
    'use encoding "utf8", Filter=>1',
    'use English',
    'use English ()',
    'use File::Find',
    'use File::Find ()',
    'use File::Basename',
    'use File::Basename ()',
    'use File::Path',
    'use File::Path ()',
    'use File::Spec',
    'use File::Spec ()',
    'use File::Glob',
    'use File::Glob ()',
    'use FindBin',
    'use Dumpvalue',
    'use Getopt::Std',
    'use Getopt::Long',
    'use Hash::Util',
    'use List::Util',
    'use Scalar::Util',
    'use Socket',
    'use IO::Socket',
    'use IPC::Open2',
    'use IPC::Open3',
    'use Math::Trig',
    'use Math::Trig ()',
    'use Net::FTP',
    'use Net::FTP ()',
    'use Net::SMTP',
    'use Net::SMTP ()',
    'use HTTP::Date',
    'use HTTP::Date ()',
    'use HTTP::Date (); HTTP::Date::time2str()',
    'use HTTP::Date (); HTTP::Date::parse_date("1994-02-03 14:15:29")',
    'use LWP::UserAgent',
    'use LWP::UserAgent ()',
    'use LWP::UserAgent (); LWP::UserAgent->new',
    'use LWP::UserAgent (); LWP::UserAgent->new->get("http://example.com")',
    'use LWP::Simple',
    'use LWP::Simple ()',
    'use LWP::Simple qw($ua)',
    'use LWP::Simple (); LWP::Simple::get("http://example.com")', 
    'use XML::Parser',
    'use XML::Parser ()',
    'use XML::Parser (); XML::Parser->new',
    'use XML::Parser (); XML::Parser->new(Style=>"Objects")->parse("<x>fuga</x>")',
    'use XML::DOM',
    'use XML::DOM ()',
    'use XML::DOM (); XML::DOM::Parser->new',
    'use XML::LibXML',
    'use XML::LibXML ()',
    'use XML::LibXML (); XML::LibXML->new->parse_string("<x>fuga</x>")',
    'use XML::Simple',
    'use XML::Simple ()',
    'use XML::Simple (); XML::Simple->new',
    'use XML::Simple (); XML::Simple->new->XMLin("<x>fuga</x>")',
    'use XML::Simple (); $XML::Simple::PREFERRED_PARSER="XML::Parser"; XML::Simple->new->XMLin("<x>fuga</x>")',
    'use XML::TreePP',
    'use XML::TreePP ()',
    'use XML::TreePP (); XML::TreePP->new',
    'use XML::TreePP (); XML::TreePP->new->parse("<x>hoge</x>")',
    'use HTML::Parser',
    'use HTML::Parser ()',
    'use HTML::Parser (); HTML::Parser->new',
    'use HTML::Parser (); HTML::Parser->new->parse("<a>fuga</a>")',
    'use JSON',
    'use JSON ()',
    'use JSON (); JSON::objToJson({ x=>1 })',
    'use JSON::Syck',
    'use JSON::Syck ()',
    'use JSON::Syck (); JSON::Syck::Dump({ x=>1 })',
    'use Apache::Session::File',
    'use Apache::Session::File; tie my %x,"Apache::Session::File",undef',
    'use base "Apache::Singleton"',
    'use Apache ()',
    'use Apache::Registry ()',
    'use Apache::PerlRun ()',
    'use Unicode::RecursiveDowngrade',
    'use Unicode::RecursiveDowngrade; Unicode::RecursiveDowngrade->new->downgrade({})',
);

for my $t (@tgt){
    my $ret = `./gtop.plx '$t'`;
    print $ret;
}