-push @out, "Date Hour SFI A K Forecast Logger";
-push @out, Geomag::print($from, $to, $main::systime);
+push @out, "Date Hour SFI K A Forecast Logger";
+my @in = Geomag::search($from, $to, $main::systime);
+for (@in) {
+ push @out, Geomag::print_item($_);
+}