my $cgi = CGI->new;
    my $self = {    
        OBJ_cgi     => $cgi
    };