#! perl
use strict;
use warnings;
use Data::Dumper;
use Date::Format;

{
    my $file         = 'data.txt';
    my $today        =  get_timezone();
    my $weather_data =  do $file;

    ${ $weather_data->[0]{xml_api_reply}{weather} }{report_date} = { '-data' => $today };

    open(my $out, '>', $file) or die "Cannot open file '$file' for writing: $!";
    print $out Dumper($weather_data);
    close($out)               or die "Cannot close file '$file': $!";
}

sub get_timezone
{
    $ENV{'TZ'} = 'America/New_York';

    return time2str('%m-%d-%Y @ %H:%M:%S', time);
}