#!/usr/bin/perl

if ( $#ARGV == 0 ) {
  @dlist = gmtime($ARGV[0]);
  printf "Year: %d  Day %d\n", $dlist[5]+1900, $dlist[7]+1;
  print scalar gmtime $ARGV[0]; 
  print "\n";
  exit 0;
}
else {
  print "Usage: et <epochtime>\n";
  exit 1;
}