opendir(my $DIRH, $DIR)
    or die "Error opening $DIR: $!";

my @files = map { [ stat "$DIR/$_", $_ ] }
                grep( ! /^\.\.?$/, readdir( $DIRH ) );  #This find me all files not have dot in directory
				#How this grep can be accommodate for my regular expression ????? 

closedir($DIRH);

sub latestFile { $b->[0]->ctime <=> $a->[0]->ctime }

my @latest_files = sort latestFile @files;

my @latest = @{$latest_files[0]};
my $name = pop(@latest);

print "Latest file created fro 100.0.7.9: $name\n";