undefined subroutine &main::Copy

File::Copy exports a sub named copy, not Copy.

$ perl -le'use File::Copy qw( Copy ); print "ok"'
"Copy" is not exported by the File::Copy module
Can't continue after import errors at -e line 1
BEGIN failed--compilation aborted at -e line 1.

$ perl -le'use File::Copy qw( copy ); print "ok"'
ok
[download]

global symbol $_ requires explicit package name

Well, you won't get that error for $_ specifically — it's special — but it's correctly claiming that you didn't declare any of your other variables.

...
my $dirpath=...
...
while (defined (my $file = ...) ) {
...
foreach my $filename (...) {
...
}
...
[download]

Update: Missed the second part of the question. When you use strict;, you must explicitly declare each variable with my. You also appear not to be using copy correctly. Working code:

use File::Copy;
use strict;
use warnings;

my $dirpath="C:\\inetpub\\performancetesting\\output\\new\\mlx\\aar";
my $dirpath2="c:\\temp";
opendir(IN,"$dirpath") or die "opening directory failed:$!";
while (defined (my $file = readdir(IN)) ) {
    my @files = split / /,$file;

    foreach my $filename (@files)
    {
        copy ("$dirpath".$filename, "$dirpath2".$filename) or warn "Ca
+n't open the file yet $filename\n:$!";
        open INPUT, "<", $dirpath.$filename or die "Open failure: $!";
        until (eof(INPUT)) {
            chomp(my $line = <INPUT>);
            # print contents of the file or do anything
            print "$line";
        }
        close INPUT;
    }
}
 
closedir(IN);
[download]

I still get the following 2 errors not sure why. can't open the file yet . :no such file or directory at copy.pl line 13 open failure permission denied at copy.pl line 14.

The answer is in your errors: The script does not see the file in question on your system. I would suggest adding print statements on your file paths and then checking if they correspond to the files you think you are opening.

Do you have a separator between your directories and your filename? You didn't in your original post. ie shouldn't $dirpath end with a pair of backslashes?

---

Unless I state otherwise, all my code runs with strict and warnings

• @files=split / /,$file;
  makes no sense. Why would you divide the file name into bits, and treat the bits as file names. You want
  push @files, $file;

• copy copies a file, it doesn't open it for reading. If you wish to copy the file, use copy. If you wish to read from the file, use open. If you wish to do both, use both. copy does not take three arguments.

• while ($line = <INPUT>) if used to iterate through the lines of a file.

use strict;
use warnings;

my $dir_qfn = "C:\\inetpub\\performancetesting\\output\\new\\mlx\\aar"
+;

opendir(my $dh, $dir_qfn)
   or die("Can't read dir $dir_qfn: $!\n");

while (defined(my $fn = readdir($dh)) ) {
   my $qfn = "$dir_qfn/$fn";
   next if !-f $qfn;

   open(my $fh, '<', $qfn)
      or do { warn("Can't open file $qfn: $!\n");
              next;
            };

   while (<$fh>) {
      chomp;
      printf("%03d: %s\n", $., $_);
   }
}
[download]

The copy function takes two parameters: a file to copy from and a file to copy to.

An optional third parameter can be used to specify the buffer size used for copying.

You've got 3 parameters in your call: a filehandle and the names of two files (there's no need to quote variables, btw).

Apart from the already mentioned stuff and as it hasn't been mentioned yet: You should consider to use File::Spec and/or File::Spec::Functions to combine your directory and file paths.