#!/bin/sh

ls -1 $* | while read file ; do
	new_file=`stat -r $file | perl -n -e '@f=split(/\s+/);print($f[11]);' | perl -e '$file=pop(@ARGV); $time=<STDIN>; chomp($time); ($dirname, $basename)=($file=~/^(.+\/)?(?:\d+\.)([^\/]+?)$/); print($dirname.$time.".".$basename);' $file`
	[ "$file" != "$new_file" ] && mv $file $new_file
done