my($sec,$min,$hr,$day,$month,$yr) = (localtime())[0..5];