Select Code to Download

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

my $weather_data = do "data.txt";
...

#! perl
use strict;
...

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

$VAR1 = [
          {
...
                               }
          }
        ];