#!/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."}
[download]