Shell Programming and Scripting

#!/perl/bin/perl

# --------------------------------------------------------------
# Creates a backup of each file in a specified folder

#set this to the folder you want check
$trackFolder = "c:\\perl_tmp";

  opendir(TARGETFOLDER, $trackFolder);
  @files = readdir(TARGETFOLDER);
  closedir(TARGETFOLDER);

  
  $found = 0;
  

  foreach $targetFile (@files) {	  
	  # append the number 1 to any file which doesn't have it
      if ($targetFile =~ m/^1/) {
        $found = 1;
      }

    if ($found == 0) {
      system "copy ${trackFolder}\\${targetFile} ${trackFolder}\\1${targetFile}";
    }

  }