#!/usr/bin/perl
# ARG : none
# date via stdout

my $date=`date +%s`;
chomp $date;
print $date;
exit 0;
