#!/usr/bin/perl

use warnings;
use strict;

use File::Find;

my $mtime = 0;
my $latestfile = "";
find(\&wanted, "/var/temp/yourdirectory");
print "$latestfile\n";

sub wanted {
    my $name = $File::Find::name;
    if (-f $name) {
        my @stats = stat($name);
        if ($stats[9] > $mtime) {
            $mtime = $stats[9];
            $latestfile = $name;
        }
    }
}