Select Code to Download

#!/usr/bin/perl -wT

...
<requirement contactname="Joe Average">A power cord.</requirement>
<requirement contactname="Jane Smith" contactnumber="555-1212">A node 
+name</requirement>
</xml>

$VAR1 = {
          'requirement' => [
                             {
...
                             }
                           ]
        };