#!/usr/bin/perl
# $Id: cleanpath,v 1.1 2000/03/31 22:56:33 dmetz Exp $
# $crtd:  by  Derald Metzger  on  990127 $
# $cmnt:  echo a clean version of $PATH, ie stripped of dup entries. $

@poutlist = ();
@pinlist = split( /:/, $ENV{PATH});
foreach $pdir (@pinlist) {
	grep(/^$pdir$/, @poutlist) && next;
	push @poutlist, $pdir;
}
print join(':', @poutlist);
