#!/usr/bin/perl -w
use File::Find;
use strict;

my $directory= ".";

find(\&files, $directory);

sub files {
  
  if( -d ){
     print "Directory $File::Find::name\n";
  }else {
   print " $File::Find::name\n";
  }

}
[download]