#!/usr/bin /pe rl -w #This is the p erl camel $a nimal = "camel ; @features = ( "big feet", "h ump back", "big eyes") ; $ home = "desert"; &anima l(); sub animal { print "This is the mascot for perl, he is a ", $animal, ".\n"; p rint "camels have $featur e s[0] $ featur es[1] featu res[2 ] .\n" prin t "C amel s li ve i n the ", $ home, ".\n "; & bye( ); } sub bye { pr int "C amels are coo l!\n."}