#!/usr/bin/perl
use strict;
use warnings;
use DateTime;

my $now = DateTime->now;
$now->iso8601;            
$now->subtract( seconds => 101 )->iso8601;