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