#!/usr/bin/perl


foreach my $f (<*.png>) {
   my ($t) = $f =~ /^(\d{10})/;
   my @tm = gmtime($t);

   my $str = sprintf("%04d%02d%02d-%02d%02d%02d.png",
	$tm[5]+1900, $tm[4]+1, $tm[3], $tm[2], $tm[1], $tm[0]);

   print "Rename $f ($t) => $str\n";
   rename($f,$str);
   }
   
