$h = new HTTP::Headers
Content_Base => '$url';
    
$h->authorization_basic($uname, $password);  
$request = HTTP::Request->new( 'GET', $url, $h ) ;

$ua = LWP::UserAgent->new;

$count = 0;
$response = $ua->request($request);

while (!$response->is_success) {
  writelog("Failed to GET '$url': ".$response->status_line);
  sleep(30);
  $count++;
  $count < 20 or 
    die "Failed to GET '$url': ", $response->status_line;
  $response = $ua->request($request);
}

open (FH, '>orders.csv');
print FH $response->decoded_content;
close FH;