Print the PATH with each directory on a separate line

ppath.pl

#!/usr/bin/env perl
use strict;
use warnings;
use Env;

if ($^O eq "MSWin32") {
    print join($/, split(/;/, $PATH)), "\n";
} else {
    print join($/, split(/:/, $PATH)), "\n";
}