use Best qw( CGI CGI::Simple );
my $q = Best->which( 'CGI' )->new;