perl -we "print +(localtime)[6];"