Select Code to Download

for my $row ($table->rows) {
    say join "\t", map $_ // q(), @$row;
}

#! /usr/bin/perl
use warnings;
use strict;
...
my $lub = 2457204.63659; #least upper bound
my $glb = 2457207.63659; #greatest lower bound
__END__

$ perl tree4.pl
table text is  RightAscensionDeclinationDistance(AU)From 45°31'5"N 122
+°40'33"W:AltitudeAzimuthSun5h 45m 15s+23° 23.5'1.0161.776122.364UpMer
+cury4h 19m 31s+17° 16.1'0.711−14.916135.207SetVenus8h 57m 45s+1
+9° 5.3'0.61730.89886.249UpMoon7h 6m 7s+17° 35.0'61.4 ER10.488104.477U
+pMars5h 40m 59s+24° 0.7'2.5731.626123.509UpJupiter9h 27m 56s+15° 51.6
+'5.92533.91177.612UpSaturn15h 52m 22s−18° 0.9'9.06617.428&#8722
+;38.534UpUranus1h 14m 31s+7° 12.0'20.373−37.278−179.032Se
+tNeptune22h 46m 36s−8° 36.9'29.655−40.890−126.794Se
+tPluto19h 1m 59s−20° 38.6'31.925−11.937−72.601Set
say venus is 8h 57m 45s
say jupiter is 9h 27m 56s

<input type="radio" name="date" onclick="0" value="2" /> <a href="/you
+rsky/help/controls.html#Julian">Julian day:</a>
</td>
<td>
<input type="text" name="jd" value="2457189.88345" size="20" onchange=
+"document.request.date[2].checked=true;" />
>