1 #!/usr/local/bin/perl -w
3 # Test retrieving a file with a 'ftp://' URL,
9 require "net/config.pl";
10 unless (defined $net::ftp_proxy
) {
16 require LWP
::UserAgent
;
18 #LWP::Debug::level('+');
20 my $ua = new LWP
::UserAgent
; # create a useragent to test
22 $ua->proxy('ftp', $net::ftp_proxy
);
24 my $url = new URI
::URL
('ftp://ftp.uninett.no/');
26 my $request = new HTTP
::Request
('GET', $url);
28 my $response = $ua->request($request, undef, undef);
30 my $str = $response->as_string;
32 if ($response->is_success) {