Select Code to Download

for (...) {
   push @a, $_;
}

push @a, ...;

my @a = ...;

unless ( ($localtimenoformat - $mdtmnoformat) > 3600 ) {

if ( ($localtimenoformat - $mdtmnoformat) <= 3600 ) {

     push @files, $ftp->ls;

...

     envia_mail() if !$new_file;
     $ftp->quit or die $ftp->message;

     push @files, $ftp->ls;

...

     envia_mail() if !$new_file;
     $ftp->quit or die $ftp->message;