use DateTime::Format::W3CDTF;
my $w3c = DateTime::Format::W3CDTF->new;
my $localtime = DateTime->now( qw[ time_zone local ] );
print join "\n", $localtime->strftime( q/%F-%H:%M:%S%z/), 
$w3c->format_datetime( $localtime );