my $sec = 196364;

print "days  ", int($sec/(24*60*60)),  "\n";
print "hours ", ($sec/(60*60))%24,     "\n";
print "mins  ", ($sec/60)%60,          "\n";
print "secs  ", $sec%60,               "\n";