#! /usr/bin/perl -w

use strict;
use File::Find;

my $ignore = 'winnt';
find(
  sub {
    if( -d $_ and m{$ignore$}o ) {
      $File::Find::prune = 1;
      return;
    }
    print "$File::Find::name\n" if -f _;
  },
  shift || '.'
);