#!/usr/bin/perl
use Date::Parse;
use Date::Format;

use Getopt::Std;
getopts("sn");

@ARGV > 1 && die "usage: $0 [-s] [-n] [template]\n";
$template = shift;
$opt_n and $template = "%Y%m%d";
$input = $opt_s ? '$_' : 'str2time($_)';
$output = defined $template ? 'time2str($template, $s)' : '$s';

eval q#
	while (<>) {
		chomp;
		$s=#.$input.q#;
		defined $s or die "cannot grok date $_\n";
		print #.$output.q#, "\n";
	}
#;
$@ and die "$@";