Read Directory Attributes

#!/usr/bin/perl


use Data::Dumper;

@lnes=readpipe("find . ! -type d -ls | grep './' ");

foreach $i (@lnes){

    chomp($i);
    print $i."\n";
    @row = split(/ /,$i);
    print Dumper(\@row);
}

------------------------------------------------------------------------------------------------------------------------

Read in a directory and get all attributes.

 ------------------------------------------------------------------------------------------------------------------------