#ex_14-1
#Learning Perl Appendix A, Exercise 14.1
if (`date` =~ /^S/) {
    print "Go play!\n";
} else {
    print "Get to work!\n";
}