I'd rework the loop body like so:

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";
}
[download]

The inner "do...while" loop test could use some work, but I think the loop expresses the idea "keep trying to send this quote until we succeed" better than a goto would.

--
The hell with paco, vote for Erudil!
/msg me if you downvote this node, please.
:wq