$T=shift;

@out=reverse($T%60, ($T/=60) % 60, ($T/=60) % 24, ($T/=24) );
$out=sprintf "%03d:%02d:%02d:%02d", @out;
$out=~s/^0+:|00://g;

print "$out\n";