# change these to affect output
my $y = 2;
my $d = 0;
my $h = 3;
my $m = 1;
my $s = 1;

#don't change these
my $ys = $y * 31536000;
my $ds = $d * 86400;
my $hs = $h * 3600;
my $ms = $m * 60;

my $seconds = $ys + $ds + $hs + $ms + $s;
my ($sec, $min, $hour, $year, $day) = (gmtime($seconds))[0..2,5,7];

my $str = duration($seconds);
print "Duration was $str\n";