#!/usr/bin/perl -lw
use strict ;
use POSIX 'strftime' ;

my $fmt ;
$fmt = <STDIN> ;
chomp($fmt) ;

my $time = time() ;

if ( $fmt eq "%s") { print $time }
else { print strftime $fmt, $time }