perl -wle 'print( (localtime)[2] )'