#!/usr/bin/perl -w

use strict;
use CGI qw(-oldstyle_urls :standard);
use Data::Dumper;
use Date::Format;
use Date::Parse;


my $q = new CGI;
use vars qw($vars);
$| = 1;

my @data;
my $today = get_timezone();

#set $Data::Dumper::Purity to 1 if you have nested references
$Data::Dumper::Purity = 1;

#open (FILE, ">data.txt") or die "can't open file: $!";

my $weather_data = do "data.txt";

 for my $w_data (@$weather_data) {
	     
     push @data, $w_data;	
	       
 }
 
# Now add 'report_date' key and its value at the appropriate level.
push @data, $data->[0]{'xml_api_reply'}{'weather'}{'report_date'} = { '-data' => $today };

print Dumper(\@data);

#print FILE Dumper(\@data);
#close FILE  or die "can't close file: $!";

sub get_timezone {

### Get our local time.

$ENV{'TZ'} = 'America/New_York';
$today = time2str( "%m-%d-%Y \@ %H:%M:%S", time);

}



##</code><code>##

$VAR1 = [
          {
            'xml_api_reply' => {
                                 '-version' => '1',
                                 'weather' => {
                                                '-row' => '0',
                                                'current_conditions' => {
                                                                          'icon' => {
                                                                                      '-data' => '/ig/images/weather/mostly_cloudy.gif'
                                                                                    },
                                                                          'temp_f' => {
                                                                                        '-data' => '70'
                                                                                      },
                                                                          'temp_c' => {
                                                                                        '-data' => '21'
                                                                                      },
                                                                          'wind_condition' => {
                                                                                                '-data' => 'Wind: E at 7 mph'
                                                                                              },
                                                                          'humidity' => {
                                                                                          '-data' => 'Humidity: 65%'
                                                                                        },
                                                                          'condition' => {
                                                                                           '-data' => 'Mostly Cloudy'
                                                                                         }
                                                                        },


                                              }
                               }
          },
];