#!/usr/bin/perl -w
use strict;
printf "%s\n", (sort{ (-M $b) <=> (-M $a) } glob("*"));