package JPI::Common;
use strict;
use warnings;
use CGI;
{
  my $q;

  sub new_cgi {
    $q = CGI->new() unless defined $q;
    return $q;
  }
}
1;