Look at Net::FTP::Recursive. I have not personally used it, so I cannot vouch for its correctness.

#!/usr/bin/perl

use strict;
use warnings;
use Net::FTP::Robust;
use Log::Report;

use constant HOST => 'ftp.perl.org';
use constant DIR  => '/pub/CPAN';
use constant FILE => 'README';

my $ftp = Net::FTP->new(HOST, Debug => 1, Passive => 1) 
          or die "Couldn't connect: $@\n";
$ftp->login('anonymous');
$ftp->cwd(DIR);
$ftp->get(DIR);

try { "error" };
if($@) { '../CPAN' }

$ftp->quit;
[download]

Update: You can dramatically speed up file transfer by using Net::FTP::Throttle
Try this:

#!/usr/bin/perl

use strict;
use warnings;
use Net::FTP::Robust;
use Net::FTP::Throttle;
use Log::Report;

use constant HOST => 'ftp.perl.org';
use constant DIR  => '/pub/CPAN';
use constant FILE => 'README';

my $ftp = Net::FTP->new(HOST, Debug => 1, Passive => 1, 
         MegabitsPerSecond => 2) or die "Couldn't connect: $@\n";
$ftp->login('anonymous');
$ftp->cwd(DIR);
$ftp->get(FILE);

try { "error" };
if($@) { '../CPAN' }

$ftp->quit;
[download]

Thanks for the reply and if that folder contains subfolder then it is very length process. That's y i am checking for any folder upload concept is there? From this we no need to worry about sub folders? right?

ftp has no concept of folder upload. You will need to write that program yourself.