#!/usr/local/bin/perl
# Jaime Prilusky 2007

use File::Find;

  my $dir = $ARGV[0] || ".";

  find(\&wanted, $dir);

sub wanted {
  my $f = $File::Find::name;
  print $f,"\n"; 
}