my $lines = 0;
my $selection;
foreach my $path (split /:/, $ENV{'PATH'}) {
    opendir(PATH, $path);
    while (defined($_ = readdir(PATH))) {
        if (-f "$path/$_") {
            ++$lines;
            $selection = $_ if int(rand($lines)) == 0;
        }
    }
    closedir(PATH)
}
exec(man => $selection);
[download]