Assuming:

• You want to skip "." files and directories
• You need the 5 "newest" files
• You want only "regular" files

opendir(DIR,$somedir) or die;
@files=reverse sort {(stat($a))[9] <=> (stat($b))[9]}
        grep(!/^\./ && -f "$somedir/$_" ,readdir(DIR));
( $#files > 4 ) && { @files=@files[0..4] };
closedir(DIR);
[download]