UNIX for Dummies Questions & Answers

#!/bin/ksh
#tsec.sh
# usage tsec.sh <filename>
perl -e '
  # modify time of the file  mtime = [9] atime =[8] ctime =[10]
	 $mtime = ((stat "$ARGV[0]")[9]);
  # convert mtime to date & time
	 local($sec,$min,$hr,$day,$mon,$yr,$wday,@dntcare) = localtime($mtime);
  # add leading zeroes if needed
	 $yr = ($yr>=70) ? $yr+1900 : $yr+2000;
	 $yr="$yr";	 
     $month = (Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec)[$mon];
     $day = ($day < 10) ? "0$day" : "$day";
	 $hr  = ($hr < 10) ? "0$hr" : "$hr";
	 $min = ($min < 10) ? "0$min" : "$min";
	 $sec = ($sec < 10) ? "0$sec" : "$sec";
	 printf "%s %s, %s %s:%s:%s\n", $month,$day,$yr,$hr,$min,$sec;
	 ' "$1"