#!/usr/bin/perl
use strict;
use warnings;
use DateTime;
#DateTime->DefaultLocale( 'fr_Fr' ) ; # if needed


my $now = DateTime->now( time_zone  => 'Europe/Paris' );
print $now->epoch, "\n";