my (%inf,@info,@keys,$phile,$key,$value);

##</code><code>##

use Cwd;
my $dir=Cwd->getcwd();
opendir(DIR,"$dir")or die "@!";

##</code><code>##

while ( $phile=readdir(DIR)){
        if($phile=~/^\.$/){next;}
        elsif($phile=~/^\.\.$/){next;}

##</code><code>##

next if $phile =~ /.../;

##</code><code>##

next if $phile eq '.' or $phile eq '..';

##</code><code>##

        elsif($phile=~/^(.*)$/)

##</code><code>##

        {print "$phile\n";info($phile)}
        info ($phile);
        }

##</code><code>##

sub info{
         @info=stat($phile);
        @keys=qw(Dev Inode Mode NLink UID GID RDev Size ATime CTime Blksize Blocks);

##</code><code>##

#!/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__