file: examples/005_hash_inc.pl 1: use Class::Accessor; 2: while (my($k,$v) = each %INC) { 3: print "$k: $v\n"; 4: }