for (qw(strict warnings)) {
    print "using $_\n" if $INC{"$_.pm"};
}