find (sub {
        return unless -f;# only files
        &putid($File::Find::name);
        }, $ARGV[0]);