Select Code to Download

$self->{ftp}->put($origin, $target) or
    do
...
          print ("$cod: $msg\n");
          return 1;
    };