#!/usr/bin/perl
# ~~~~~~~~~ update to your environment(1/2)
$find = "/usr/bin/find";
#        ~~~~~~~~~ update to your environment(2/2)
$dir = ".";
#       ~*
# reftime.pl: Reference Time script
#             ver.1.00 1996/10/06
# Copyright (c)1996 GOMASUKE<kibita@orange.or.jp>
#                   Orange Internet Service USERS, Japan

@week = ("Sun","Mon","Tue","Wed","Thu","Fri","Sat");
open(CMD,"$find $dir|");
chop(@file = <CMD>);
close(CMD);

foreach (sort(@file)) {
  if(/\.htm/) {
    ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdat) =
          localtime(time - (-A $_) * 24 * 3600);
    $year += 1900; #VALID THRU 12/2037
    $mon++;
    printf "%4d/%02d/%02d %3s %02d:%02d:%02d %s\n",
            $year,$mon,$mday,$week[$wday],$hour,$min,$sec,$_;
  }
}