$ perl -Mwarnings -Mstrict -Mautodie -E '
    open my $fh, "<", "$ENV{HOME}/.cpan/histfile";
    my @modules;
    my %seen;
    while (<$fh>) {
        next unless /^install (.*)$/;
        next if $1 =~ /^Tk/;
        next if $seen{$1}++;
        push @modules, $1;
    }
    say "force test @modules";
'