This works! 
Had to look in the correct directory... Must be suffering from code blindness. 
@files = readdir(GRAPHIC);
closedir (GRAPHIC);
$file_test = $id . ".";
foreach $file (@files) {
if ($file =~ /^$file_test/) {
move("$SAVE_DIRECTORY/validate/$file", "$SAVE_DIRECTORY/$file") or die "Move failed: $!";
}
}
Leonard
aka PerlFlunkie
Had to look in the correct directory... Must be suffering from code blindness. Code:
opendir (GRAPHIC, "$SAVE_DIRECTORY/validate") or &cgierr("unable to open directory in delete records: $SAVE_DIRECTORY. Reason: $!"); @files = readdir(GRAPHIC);
closedir (GRAPHIC);
$file_test = $id . ".";
foreach $file (@files) {
if ($file =~ /^$file_test/) {
move("$SAVE_DIRECTORY/validate/$file", "$SAVE_DIRECTORY/$file") or die "Move failed: $!";
}
}
Leonard
aka PerlFlunkie