sub hexa_triplet {
map{($_[0]>>$_)&255}16,8,0
}

##</code><code>##

sub hexa_triplet {
unpack"xC3",pack"N",@_
}

##</code><code>##

perl -e '$|--;$.=q$.$;while($i!=0){$i=(time-$^T)%60;print"\r".$.x$i}'