Error executing run mode 'send_file': Cannot connect to host: Net::FTP: connect: timeout at /home/domains/xxx/www.xxx.com/aa/system/modules//FTP.pm line 16. at /home/domains/xxx/www.xxx.com/aa/index.cgi line 20 

##</code><code>##

use Carp;
....
my $ftp = Net::FTP->new("XXX.XX.XX.XXX", Debug => 1, Port => 21, => Timeout => 300) or 
  croak "Cannot connect to host: $@";

##</code><code>##

my $ftp = Net::FTP->new("XXX.XX.XX.XXX", Debug => 1, Port => 21, => Timeout => 300);
my $num_tries = 0;
my $max_tries = 5 #you decide how many times you want to try

while ( !$ftp) {
    if ($num_tries< $max_tries) ) {
         ++$num_tries;
         $ftp = Net::FTP->new("XXX.XX.XX.XXX", Debug => 1, Port => 21, => Timeout => 300);
    } 
    if ($num_tries >= $max_tries) ) {    
         croak "Cannot connect to host, failed after $num_tries times : $@"; 
    }
}