foreach my $quote (@quotes) {
  my $return = 0;
  do {
    system("cls");
    emphasize("Sending quote: $quote");
    $return = $ftp->put($quote);
    if($return != $quote) {
      while(&connect_ras()) {}
    }
  } while($return != $quote);
  move($quote, "${new_dir}\\$quote") 
    or warn "move failed: $!\n";
}