Perl File::Find example

gistfile1.pl

#!/usr/bin/env perl

use 5.010;
use strict;
use warnings;

use Data::Dumper;
use File::Find;

sub wanted {
    my @stat = stat $_;
    print Dumper(\@stat);

    # hint: perldoc -f stat
    # http://perldoc.perl.org/File/Find.html
}

find(\&wanted, '.');