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

my $dir = '/home/harald';

my ($newest_file, $newest_date);
for my $entry (glob "$dir/*") {
    next unless -f $entry;
    if (!defined $newest_date || -M $entry < $newest_date) {
        $newest_date = -M $entry;
        $newest_file = $entry;
    }
}
if (defined $newest_file) {
    print "Newest: $newest_file\n";
} else {
    print "No files found";
}