#!/usr/bin/perl
#NAME
#  lt - display local time
#
#SYNOPSIS
#  lt [timestamp]..
#
#DESCRIPTION
#  This takes one or more Unix timestamps, or the value of time(), 
#  and outputs the local time in OSI format.
#
#SEE ALSO
#  ts, ut
#
#AUTHOR
#  John Chambers <jc@trillian.mit.edu>

@ARGV = (time) unless @ARGV;
for $t (@ARGV) {
	($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
		localtime($t);
	printf("%04d-%02d-%02d %2d:%02d:%02d\n",1900+$year,1+$mon,$mday,$hour,$min,$sec);
}