#Abrimos el directorio
   
    my $dir = '\Desktop\Archivostxt/';

    opendir(DIR, $dir) or die $!;

    #lo abrimos.
    while (my $file = readdir(DIR)) {

       
        next unless (-f "$dir/$file");

        # buscamos solo los archivos .txt
        next unless ($file =~ m/\.txt$/);
            @propiedades = stat($file) <=> time();
            #@propiedades = time() - stat($file);
        my @archivos=$file;
                print ("@archivos");
                print("@propiedades");
    }
    closedir(DIR);

my @archivos_ordenados = sort { -M $a <=> -M $b } readdir(DIR);

#!/usr/bin/perl
use strict;
use warnings;

my $dir = '/home/explorer/Documents/';
my @archivos;

opendir(DIR, $dir) or die "$!\n";

while ( my $fichero = readdir(DIR) ) {

    # buscamos solo los archivos .txt
    next if $fichero !~ m/\.txt$/;

    my $archivo = $dir . $fichero;

    push @archivos, [ ((stat($archivo))[10]), $fichero ];
}

#use Data::Dumper;
#print Dumper(@archivos);

my @archivos_ordenados = sort { $a->[0] <=> $b->[0] } @archivos;

foreach my $fichero ( @archivos_ordenados ) {
    print $fichero->[1], "\n";
}

closedir(DIR);

("print $fichero->[1], "\n";")

use Data::Dumper;
print Dumper(@archivos);

use strict;
use warnings;

my $dir = "\\\\X1pegasus01\\LogCustomPage\\";
my @archivos;
opendir(DIR, $dir) or die "$!\n";

while ( my $fichero = readdir(DIR) ) {
    next if $fichero !~ m/\.txt$/;
    my $archivo = $dir . $fichero;
    push @archivos, [ ((stat($archivo))[10]), $fichero ]
}

my @archivos_ordenados = sort { $a->[0] <=> $b->[0] } @archivos;
print $archivos_ordenados[-2], "\n";
closedir(DIR);

foreach my $fichero ( @archivos_ordenados ) {
    print $fichero->[1], "\n";
}

print $archivos_ordenados[-2]->[1], "\n";