use strict;
use warnings;
use CGI qw/:standard/;
my $q = new CGI;
$q->optgroup();
__END__
Undefined subroutine CGI::optgroup
 at /tmp/c line 6