#!/usr/bin/perl -w
#
                                                                                
use strict;
                                                                                
                                                                                
find('.');
                                                                                
                                                                                
sub find
{
   my ( $dir ) = @_;
                                                                                
   my $dh;
                                                                                
   opendir $dh, $dir or return;
                                                                                
   while(my $file = readdir $dh )
   {
      next if $file =~ /^\.{1,2}$/;
      my $full_file = "$dir/$file";
      if ( -d $full_file )
      {
         find($full_file);
      }
      else
      {
         print "$full_file\n";
      }
   }
   closedir $dh;
}