--- testqt.pl.orig	Sun Aug  1 19:46:56 1999
+++ testqt.pl	Sun Aug  1 19:48:47 1999
@@ -1,11 +1,11 @@
 #!/usr/bin/perl
 	
-	$wget_loc = `which wget`;
+	$wget_loc = `which fetch`;
 	chop $wget_loc;
 
 	if (!$wget_loc) 
 	{
-		die "testqt.pl:: Could not find wget.  If it is not in your path please add it to your path.  If it is not installed please install it.\n";
+		die "testqt.pl:: Could not find fetch.  If it is not in your path please add it to your path.  If it is not installed please install it.\n";
 	}
 
 	$home = (getpwuid($<))[7];
@@ -78,7 +78,7 @@
 	#
 
 	$tempfile = "stock.tmp.$$";
-	$wget_args = " --cache=off --tries 0 -q -O $home/.wmstock/$tempfile \"$URL\"";
+	$wget_args = " -p -o $home/.wmstock/$tempfile \"$URL\"";
 	$command = $wget_loc.$wget_args;
 	system "$wget_loc$wget_args";
 	sleep(3);
@@ -115,7 +115,7 @@
         $version = $_[0];
 	$vtempfile = ".newest";
         $vers_url="http://www.mattfischer.com/wmstock/src/$vtempfile";
-	$wget_args = " --cache=off --tries 0 -q -O $home/.wmstock/$vtempfile \"$vers_url\"";
+	$wget_args = " -p -o $home/.wmstock/$vtempfile \"$vers_url\"";
         $command = $wget_loc.$wget_args;
 
 	print "Please wait while I check for a new version.\n";