#!/usr/bin/perl

use Time::ParseDate;
use Getopt::Std;

getopts("sh");

my $date = join " ", @ARGV;
my $seconds = $date;
$seconds = parsedate( $date ) unless $date =~ /^\d{4,}$/;

if( defined $opt_s ){

  print $seconds."\n";

}else{

  print scalar localtime $seconds;
  print "\n";
}