my $list_request = HTTP::Request->new(GET => $source_dir);
my $agent = LWP::UserAgent->new;
$agent->protocols_allowed(['ftp', 'http']);
#$agent->proxy('ftp' => 'http://www.nunya.biz:8080');
my $list_response = $agent->request($list_request);
my @lines = grep (s!^<A HREF="^\w+($loaddate)($file_pattern)([\w.]*).*$!$2$3!, (split(/\n/,$list_response->content)) );