#!/usr/local/bin/perl

@dirlist = split (/:/, $ENV{"PATH"});
foreach $dir (@dirlist) {
        print ("$dir\n");
}
