--- toast	2008/08/22 18:38:56	1.460
+++ toast	2009/03/20 01:18:10	1.461
@@ -6862,8 +6862,9 @@
   GET http://toastball.net/toast/toast|perl -x - arm toast
 
   perl -e 'socket(S,2,1,0)&&connect(S,pack("Sna4x8",2,80,gethostbyname(
-      "toastball.net")||die("dns")))&&syswrite(S,"GET /toast/toast\n")&&
-      open(STDIN,"<&S")&&exec($^X,qw(-x - arm toast))||die($!)'
+      $h="toastball.net")||die("dns")))&&syswrite(S,"GET /toast/toast "
+      ."HTTP/1.0\nHost: $h\n\n")&&open(STDIN,"<&S")&&exec($^X,qw(-x -
+      arm toast))||die($!)'
 
 Of course, if you already have a previous version of B<toast> up and
 running, just type C<toast upgrade toast>.  If B<toast> is installed