package forms;

my $FORMS;

sub fetch {
  $FORMS ||= CGI->new();
  return $FORMS;
}

## elsewhere

use forms;
my $q = forms::fetch();