#!/usr/bin/env perl -l

use strict;
use warnings;

use Time::Piece;

print localtime->strftime('%Y-%m-%dT%H:%M:%S');