Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    $ftp->cwd("$rdir");
    $ftp->get("$file");
    $ftp->quit;

my $ldir="/path/to/local/script";
system("mv", "$rdir$/$file", "$ldir");