#!/usr/bin/perl
##
## utime.pl -- unix timestamp <==> date
##
## san2(at)linuxchannel.net
##
## usage : $0 'YYYY MM DD HH:II:SS'
##         or
##         $0 1073921077

use POSIX;

$ARGS = $ARGV[0];

if($ARGS =~ /^[0-9]+$/)
{
  $utime = $ARGS;
}
elsif($ARGS)
{
  $ARGS =~ s/[^0-9]+/ /g;
  ($yy,$mm,$dd,$hh,$ii,$ss) = split(/\s+/,$ARGS);
  $utime = mktime($ss,$ii,$hh,$dd,$mm-1,$yy-1900);
}
else
{
  $utime = time;
}

$udate = localtime($utime);
print $utime,' => ',$udate,"\n";

exit;