Select Code to Download

2020/05/11 14:23:44 INFO ./6.weather.pl 
2020/05/11 14:23:45 INFO $VAR1 = [
  {
...
2020/05/11 14:23:46 INFO altitude: 61.305 
2020/05/11 14:23:46 INFO azimuth: 24.656 
2020/05/11 14:23:46 INFO visible?: Up

2020/05/11 17:40:07 INFO ./6.weather.pl 
2020/05/11 17:40:08 INFO $VAR1 = [
  {
...
2020/05/11 17:40:09 INFO altitude: 35.801 
2020/05/11 17:40:09 INFO azimuth: 79.815 
2020/05/11 17:40:09 INFO visible?: Up

#!/usr/bin/env perl

use strict;
...
$te->delete;

__END__

Use of uninitialized value in hash element at /usr/share/perl5/HTML/El
+ement.pm line 1674.
Use of uninitialized value in hash element at /usr/share/perl5/HTML/El
+ement.pm line 1674.
...
Use of uninitialized value in hash element at /usr/share/perl5/HTML/El
+ement.pm line 1674.
Use of uninitialized value $ptag in string eq at /usr/share/perl5/HTML
+/TreeBuilder.pm line 1071.
$

##  failure
#my %cl = %$var1;
#my $cl1 = $cl{'amount'};
#say "cl 1 is $cl1";