#! /usr/local/bin/perl -lw

use strict ;
use POSIX 'strftime' ;
$ENV{TZ} = 'GMT' ;
my $t = time() ;
print strftime("%s", localtime(int $t)) ;