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