#!/usr/bin/perl -w

# nerxscode
# Time-stamp: <2001-07-09 14:24:06 nik@nerxs.com>
# find.pl
# Gets all filenames from dirs including their subdirs and hidden files.

if ($ARGV[0]) {
  $path = $ARGV[0];
}

else {
  print "Usage: find.pl [DIR]\n";
  exit;
}

@output = `find $path -type l -or -type f |grep -v \'\\.cat\$\'`;

foreach $line (@output) {
    print $line;
}