UPDATE:
Since English is my second language I think I did not express myself correctly, as webfiend put it what I am looking is that how to use Net::FTP::AutoReconnectinside my program, what structure like IF, WHILE, DO WHILE, I need to use to make the program reconnect, and how to catch the result when trying to connect to the server and fails, for example :

use Net::FTP;

use strict;

{
  my $pollingInterval = 1;
  my $directoryToMonitor = "C:/testdir";

  my %oldFileList = ();
  my %currentFileList = ();

  # we start by getting the file list, considered to be the "old" list
  #
  getFileList($directoryToMonitor, \%oldFileList);

  for (;;) {

    sleep($pollingInterval);

    # get the current file list and compare it to the old file list
    # if the lists differ, the current file list becomes the old file 
+list
    # and we FTP the files
    #
    getFileList($directoryToMonitor, \%currentFileList);

    if ( fileListsDiffer(\%oldFileList, \%currentFileList) ) {
      copyFileList(\%oldFileList, \%currentFileList);
      #dumpFileList(\%oldFileList);
      # the FTP commands should go here instead of the dumpFileList() 
+function above
      
my @transferFileList = glob "m*.*";
my @fileList = glob "m*.*";
foreach my $file (@fileList) {
  chomp($file);
  if ( $file =~ /.+\.\d{1,}/ ) {  # one or more characters, a '.' foll
+owed by one or more digits
    print "Iniciando transmision de datos...\n";
    print STDOUT "<Nombre valido del Archivo>" . $file . "\n";
    my $filesize = -s $file;
    print "Size: $filesize\n";
    my $server    = "124.32.54.59";
      my $username  = "saai";
      my $pass      = "saaisi0";
      my $ftp;
     print "Connecting to $server..\n";

# Set up connection
           $ftp = Net::FTP->new( $server, Passive => 1, Debug => 0 ) o
+r die $@;
           print "..authenticating..\n";

# Log in...
$ftp->login( $username, $pass ) or die $ftp->message;
print "..done!\n";
$ftp->cwd('Envio') or die $ftp->message;
    print "Directorio actual es :\n";
    print $ftp->pwd (), "\n";
    $ftp->ascii();
       
    $ftp->put("$file") or die $ftp->message;
    my $tamano = $ftp->size($file);
    print "el tamano del archivo es : $tamano\n";
    print "Comprobando el envio de los archivos\n";
    if ($filesize = $tamano) {
      print "\nSON DEL MISMO TAMANO\n";
    }
    else {
      print "ooooopppssss!!!! intentando enviarlo de nuevo";
    }
    print "Logging out..";

#or die $ftp->message;
    $ftp->quit;
    print "..done!\n\n\n";

      
  }
  else {
    print STDOUT "<Nombre Invalido del Archivo> " . $file . "\n\n\n";

  }
}    
      
      
      
for (@transferFileList) {
    #print "$_\n";
        system ("del",$_);
}
    }

  }


}



# Basically prints the contents of a hash.
#
sub dumpFileList
{
  my $list = shift;

  my @k = sort(keys(%$list));
  for (my $i=0; $i<=$#k; $i++) {
    print $k[$i] . " " . $list->{$k[$i]} . "\n";
  }
  print "\n";

}



# Get a list of the files along with there modification times
# from the specified directory.  The results are place in the 
# specified hash where the key is the file name and the value
# is that file's modification time.
#
sub getFileList
{
  my $directory = shift;
  my $hash      = shift;

  %$hash = ();

  opendir(DIR,$directory) || die "Can not open $directory";
  my @files = grep(!/^\.\.?$/, readdir(DIR));
  closedir(DIR);

  for (my $i=0; $i<=$#files; $i++) {
    $hash->{$files[$i]} = (stat("$directory/$files[$i]"))[9];
  }
}



# See if two hashes of files differ.  The hashes are considered differ
+ent if one of the
# following occurrs:
#
#   1. The hashes have different number of elements.
#   2. The new hash is missing a key that is in the old hash.
#   3. For a given key, the value in the old hash differs from the val
+ue in the new hash.
#
sub fileListsDiffer
{
  my $oldList = shift;
  my $newList = shift;

  my @oldKeys = (keys(%$oldList));
  my @newKeys = (keys(%$newList));

  if ($#newKeys != $#oldKeys) {
    return 1;
  }

  foreach my $key (@oldKeys) {
    if ( ! defined($newList->{$key}) || $newList->{$key} ne $oldList->
+{$key} ) {
      return 1;
    }
  }

  return 0;
}


# Copies one hash to another.  The destination has ($to below) is empt
+ied first.
#
sub copyFileList
{
  my $to   = shift;
  my $from = shift;

  %$to = ();

  foreach my $key (keys(%$from)) {
    $to->{$key} = $from->{$key};
  }
}
[download]

Where in this program I can use reconnect or how to use it? thanks!
_____________________________________________________________ Dear monks!!!
I come to you dear monks in seek of knowledge, I need in my program to have a reconnect feature in case of the FTP fails it try to reconnect again but I dont know how to implement it on my program can someone please help me ?
thank you dear monks