#!/usr/bin/perl

for (split(/:/, $ENV{'PATH'})) {
    next if /^\.?$/;
    s![^/+]*$!man! && -d && !$seen{$_}++ && push(@manpath,$_);
}

print join(":", @manpath), "\n";