Select Code to Download

 open (my $XML, "<", $xml_file) or die "File open failed ($xml_file): 
+$!;
get_data($XML, \%hash);