Help for this page

Select Code to Download

Select or download this

      opendir (DIR, $backupdir) or die $!;
      my @files = readdir DIR;
...
         copy($filename, $backful); 
         print "Backup copy of the file has been created\n";
      }

Select or download this

      if (-e $backful) {
         print "Backup copy of $filename exists!\n";
...
         copy($filename, $backful); 
         print "Backup copy of the file has been created\n";
      }