If you only need an approximate answer, I'll invoke the "or something like that" clause and change 196364 into '2.3d'

print sec2human(196364), "\n";

sub sec2human {
    my $secs = shift;
    if    ($secs >= 365*24*60*60) { return sprintf '%.1fy', $secs/(365
+*24*60*60) }
    elsif ($secs >=     24*60*60) { return sprintf '%.1fd', $secs/(   
+ 24*60*60) }
    elsif ($secs >=        60*60) { return sprintf '%.1fh', $secs/(   
+    60*60) }
    elsif ($secs >=           60) { return sprintf '%.1fm', $secs/(   
+       60) }
    else                          { return sprintf '%.1fs', $secs     
+           }
}
[download]