in reply to time calculation

perl -e '($sec, $min)=localtime time; printf "%.2d:%.2d", $min, $sec'
or
perl -e '$,=":";print reverse @ms=(localtime)[0, 1];'