#!/usr/bin/env perl
use warnings;
use strict;
use POSIX;
use Nullroute::Lib qw(_usage _die);

if (!@ARGV) {
	_usage("<format> [timestamp]");
	_die("missing output format");
}

my $format = shift @ARGV;

push @ARGV, time if !@ARGV;

print strftime($format, localtime($_))."\n" for @ARGV;
