Actually, I looked at the module and the package name is

package Win32::ReadDirectoryChanges;
[download]

The bareword errors were probably because of the incorrect package name. Change the name of the module you copied and pasted to Win32::ReadDirectoryChanges (without the W).

Try to change the code to:

use strict;
use warnings;
use File::Copy::Recursive qw(fcopy rcopy dircopy fmove rmove dirmove);

use Win32::ReadDirectoryChanges;

my $path    = 'c:\\PAPER';
my $subtree = 1;
my $filter  = FILE_ACTION_ADDED | FILE_ACTION_MODIFIED;

my $rdc = Win32::ReadDirectoryChanges->new(path   => $path,
                                           subtree => 1,
                                           filter  => $filter);
  
my @results = $rdc->read_changes;

while (scalar @results) {

   my ($action, $filename) = splice(@results, 0, 2);
 
   if ($action == FILE_ACTION_ADDED || $action == FILE_ACTION_MODIFIED
+) {

      # perform your backup here
      fcopy ("$filename","p:\\phdpaper");

   }

}
[download]