#!/usr/bin/perl -w
use strict;
 
use File::Find;
 
# my @directories = ('/dir1','/dir2');
my @directories = ('.');  # for testing this example

find(\&wanted,@directories);
 
sub wanted {
         my ($dev, $ino, $mode, $nlink, $uid, $gid) = lstat($_);
         
          print $File::Find::name . " $dev "."$mode "."\n";
}
[download]