Nlink 1

##</code><code>##

#! /usr/bin/perl

use warnings;
use strict;

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

use Cwd;
my $dir=Cwd->getcwd();
opendir(DIR,"$dir")or die "@!";
while ( $phile=readdir(DIR)){
        if($phile=~/^\.$/){next;}
        elsif($phile=~/^\.\.$/){next;}
        elsif($phile=~/^(.*)$/)
        {print "$phile\n";info($phile)}
        info ($phile);
        }

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

@inf{@keys}=@info;
}

($key,$value)=each %inf;
print "@info\n";
print "$key,$value";