Select Code to Download

#!/usr/bin/env perl -l

...
use Time::Piece;

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

2013-11-27T19:31:52