require "find.pl";

# Traverse desired filesystems

&find('/*.jpg');

exit;

sub wanted {
    (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) &&
        (int(-M _) == 2) &&
            print("$name\n");
            }

    Source: geocities.com/siliconvalley/park/8312

               ( geocities.com/siliconvalley/park)                   ( geocities.com/siliconvalley)