perl -e '($sec, $min)=localtime time; printf "%.2d:%.2d", $min, $sec'