use Bar;
use CGI;
our $q = CGI->new();

Bar::do_stuff(\$q);