1#!/usr/bin/perl
2
3use strict;
4use warnings;
5use DateTime::Format::W3CDTF;
6
7my $dt		= DateTime->now;
8my $format	= DateTime::Format::W3CDTF->new;
9print $format->format_datetime($dt) . "\n";
10