perl -MConfig -le 'print for grep { -d } (split /\s+/, $Config{libpth})'  # *nix shell
perl -MConfig -le "print for grep { -d } (split /\s+/, $Config{libpth})"  # ms windwoes cmd