(unsuccessful) attempt to tally module usage

baggins.pl

package EyeOfSauron;

use strict;
use warnings;
use 5.010;
use Carp;

# THE EYE SEES ALL, THE EYE KNOWS ALL

my %fellowship;

BEGIN {
    *CORE::GLOBAL::require = sub { my $precious = $_[0];
                                   $fellowship{$precious}++;
                                   CORE::require(@_) };
}

END {
    my @ringbearers = sort { $fellowship{$a} <=> $fellowship{$b}
                            || lc $a cmp lc $b } keys %fellowship;
    foreach my $precious (@ringbearers) {
        warn sprintf("%s: %d\n", $precious, $fellowship{$precious});
    }
}

use DateTime;

say DateTime->new;

1;