#!/usr/bin/perl

use strict;
use warnings;

use File::stat;

my $DIR = './';

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

my @files = map { [ stat "$DIR/$_", $_ ] }
                grep( ! /^\.\.?$/, readdir( $DH ) );

closedir($DH);

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

my @sorted_files = sort rev_by_date @files;

my @newest = @{$sorted_files[0]};
my $name = pop(@newest);

print "Name: $name\n";
[download]