1BEGIN { 2 $| = 1; 3 print("1..3\n"); 4} 5END { 6 print("not ok 1\n") unless $loaded; 7} 8 9sub prompt { 10 my $prompt = shift; 11 local $_; 12 13 print STDERR $prompt; 14 defined($_ = <STDIN>) || return undef; 15 chomp; 16 $_; 17} 18 19use Fan::HTTP; 20$loaded = 1; 21print("ok 1\n"); 22 23$proxy = &prompt("proxy: "); 24$url = &prompt("url: "); 25 26ref($http = Fan::HTTP->new(http_proxy => $proxy)) 27 or print("not ok 2\n"), exit(1); 28print("ok 2\n"); 29 30$http->get($url, "tmp.out") 31 or print("not ok 3\n"), exit(1); 32print("ok 3\n"); 33 34print("check tmp.out to see contents of $url.\n"); 35