Create Text Adventure

Text adventure I created to teach myself the syntax of perl.