Select Code to Download

#!/usr/bin/perl -l

use strict;
...
print $dtd1->minutes     . ' minutes';     
print $dtd1->seconds     . ' seconds';      
print $dtd1->nanoseconds . ' nanoseconds';

3  years 
4  months
...
7  minutes
49 seconds
0  nanoseconds