Select Code to Download

#!/usr/bin/perl -w
use IO::Socket;
unless (@ARGV) { die "usage: $0 URL\n" }
...
    print "\n$sep";
    close $remote;
}

$ ./gethttp 'http://login.gatorlink.ufl.edu/authenticate.cgi'
HTTP/1.0 404 Not Found
Date: Fri, 12 Jan 2001 22:57:21 GMT
...
<H1>Not Found</H1>
The requested URL http://login.gatorlink.ufl.edu/authenticate.cgi was 
+not found on this server.<P>
</BODY></HTML>