#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

use Cwd;
my $dir=Cwd->getcwd;
opendir my $dh, $dir or die
  "Can't open `$dir': $!\n";

while (my $file=readdir $dh) {
    next if $file eq '.' or $file eq '..';
    print $file, "\n";
    my %tmp;
    @tmp{qw/Dev Inode Mode NLink UID GID RDev Size ATime CTime Blksize Blocks/}=
      stat $file;
    print Dumper \%tmp;
}

__END__