Select Code to Download

use Data::Dumper;
print header('text/plain');
print Dumper($foo);

$foo = XMLin($xml, forcearray => 1);

$foo = {
 'INFO' => [
...
            }
           ]
       };

if(defined @{$data->{'INFO'}}){
   for my $when(@{$data->{'INFO'}}){
      $lastcheck = $when->{'lastchecked'}
      }
   }