Select Code to Download

<?xml version='1.0' encoding='UTF-8' standalone='yes' ?>
<smses count="4110">
  <sms protocol="0" address="1234567890" date="1288032888762" type="1"
+ subject="null" body="Hey, I'm out of class." toa="null" sc_toa="null
+" service_center="null" read="1" status="-1" locked="0" />
  <sms protocol="0" address="0987654321" date="1288032888762" type="1"
+ subject="null" body="What are you up to this afternoon?" toa="null" 
+sc_toa="null" service_center="null" read="1" status="-1" locked="0" /
+>
</smses>

#$VAR1 = {
#          'count' => '5509',
...
#                     'type' => '2',
#                     'service_center' => 'null'
#                   },

#! /usr/bin/env perl

...

my $hashRef = loadFileToHashRef("xml/sms-20110704030000.xml");
print Dumper $hashRef;

#! /usr/bin/env perl

...

my $hashRef = loadFileToHashRef("xml/sms-20110704030000.xml");
print Dumper $hashRef;

Global symbol "$key" requires explicit package name at ./parse.pl line
+ 29.
Global symbol "$value" requires explicit package name at ./parse.pl li
+ne 29.
Global symbol "$key" requires explicit package name at ./parse.pl line
+ 31.
Global symbol "$value" requires explicit package name at ./parse.pl li
+ne 31.
Execution of ./parse.pl aborted due to compilation errors.