4 * Copyright (c) 2003-2008, Lars Nilsson, <lars@quantumchamaeleon.com>
8 if (Array.length
Sys.argv
) = 2 then
10 Curl.global_init
Curl.CURLINIT_GLOBALALL
;
11 let connection = new Curl.handle
in
12 connection#set_url
Sys.argv
.(1);
16 Printf.fprintf stderr
"Usage: %s <url>\n" Sys.argv
.(0)