perl -e 'print "Friday rulez\n" if (localtime)[6] == 5;'