#!perl
use warnings;
use strict;

use Module::CoreList;

my %modules = %{ $Module::CoreList::version{ 5.008 } };

while( %modules ) {
	if( keys %modules =~ /cgi/i ) {
		print "Found one!\n";
	}
}