Help for this page

Select Code to Download

Select or download this

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

Select or download this

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