END {
    my @pp = 'pp', '-n';
    foreach(keys %INC){
        s[/][::]g;
        s/\.pm$//;
        push @pp, '-M', $_;
    }
    push @pp, __FILE__;
    print "@pp $/";
}