my ( $sec, $min ) = (localtime( time ) )[0,1];