Since no shell interpolation is performed on the filename, the filesystem is queried for an actual file called '*'. You may be interested in peerforming a chdir($curSubmitDir); @filesFrom = glob("*");, which will use the shell to get the list of files, and store them in an array. Then you have to copy the files one by one:

foreach my $fileFrom (@filesFrom){
    move ($fileFrom, $fileTo) or die "$!";
}
[download]

You may also use a different approach - which is a bit more efficient, and secure:

opendir SUBM, $curSubmitDir;
while (defined (my $fileFrom = readdir DIR)){
    move ($fileFrom, $fileTo) or die "$!";
}
[download]

Which will open the directory, and read it item by item, instead of performing a glob. This will also avoid an array in memory, and will not change your working directory.

-nuffin
zz zZ Z Z #!perl