Select Code to Download

#!/usr/bin/perl 

...
  print "you suck\n";
  exit 1;
}

<computer id="one" os="XP" type="mac"><lease true="yes"/><extra_device
+ value="scanner"/><entertainment><game company="nameco" id="tekken"/>
+<platform value="pc only"/><year value="1980"/><game company="ninja" 
+id="tekken 2"/><platform value="pc and mac"/><year value="1989"/></en
+tertainment></computer>

@array = { $key => { $key1 => $val } }

@array = { lease => { true => yes } }