--- GetKp.orig	1999-02-12 06:42:01.000000000 +0100
+++ GetKp	2011-12-27 15:38:56.000000000 +0100
@@ -5,7 +5,7 @@
 #
 
 
-    require "ctime.pl";
+    use Time::CTime;
 
 
     ($Year, $Month, $Day) = &year_month_day();
@@ -19,7 +19,7 @@
     }
 
 
-    $grabcmd = "cd /tmp; wget --passive-ftp --tries 2 -q ftp://www.sec.noaa.gov/pub/indices/DGD.txt";
+    $grabcmd = "cd /tmp; fetch -q ftp://ftp.sec.noaa.gov/pub/indices/DGD.txt";
     system "$grabcmd";
 
 
@@ -68,7 +68,7 @@
     #
     # Add in very latest stuff
     #
-    $grabcmd = "cd /tmp; wget --passive-ftp --tries 2 -q ftp://www.sec.noaa.gov/pub/latest/curind.txt";
+    $grabcmd = "cd /tmp; fetch -q ftp://ftp.sec.noaa.gov/pub/latest/curind.txt";
     system "$grabcmd";
     %lmonstr = ( "Jan", 1, "Feb", 2, "Mar", 3, "Apr", 4, "May", 5, "Jun", 6, "Jul", 7, "Aug", 8, "Sep", 9, "Oct", 10, "Nov", 11, "Dec", 12);