Hi,
You might try DateTime module and one of the math method, for example :$dt->delta_ms( $datetime )

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

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

Update: piece of code

hth,
PooLpi