#!/usr/bin/env perl
#
# sort-by-mtime - sorts and precedes files given on input by mtime
#
# $Id$

use strict;
use warnings;
use POSIX;

my %mtime;

while (<>)
{
  chomp;
  $mtime{$_} = ( stat($_) )[9];
}

foreach ( sort { $mtime{$a} <=> $mtime{$b} } keys %mtime )
{
  printf( "%s %s\n",
    strftime( '%Y/%m/%d %H:%M:%S', localtime( $mtime{$_} ) ), $_ );
}