move syntax from LearningPerl