One potential problem I see is that, as you have it, the fetch method will return a different CGI object with each invocation. Also, it's not clear to me that a OO class is particularly useful here. (I mean, if you are going to pass an object of this class around so that you can access the CGI object through it, then you may as well pass around the CGI object in the first place.)

I'm not entirely clear on what you're trying to do, but maybe this would do what you want:

package forms;

my $FORMS;

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

## elsewhere

use forms;
my $q = forms::fetch();
[download]