use File::Find;
$< = $> = 500;
sub w { print $_ . "\n" }
chdir q(/);
find( \&w, qw( /home/chris/Pictures ) );