I have a backup subroutine on one of my script,
I can backup all the files in a certain directory to
the backup directory.

the problem is it can only copy the files in that data directory but the script can't copy if the data directory
has a subdirectories.

How can I possiably change the script so that I can
backup a directory which all files and files
in the subdirectories can backup (copy the subdirectory
and the files without changing the layout format)
in the backup directory..

Below is the backup subroutine of my script..
please give me some advice and suggestions for how to change
the script!


------------------------------------------------------------
sub backup {

$board_id = $FORM{'board_id'};
$board_dir = "$dbm_dir$board_id";
$backup_log_file = "$backup_dir$backup_log";

$gap="##,,";

#¦pªG¥Ø¿ý¤£¦s¦b«h«Ø¥ß°Q½×°Ï³Æ¥÷¥Ø¿ý
if(-d "$backup_dir$board_id") {
#¥Ø¿ý¤w¦s¦b
} else {
mkdir("$backup_dir$board_id", 0777) || errormesg("cannot makedir $backup_dir$board_id : $!");
chmod(0777,"$backup_dir$board_id") || errormesg("cannot chmod $backup_dir$board_id : $!");
}
#¶}±Ò³Æ¥÷°O¿ýÀÉ
open (LOG_FILE,">$backup_dir$backup_log");

#³Æ¥÷ TXT ÀÉ®×
opendir(DIR,"$dbm_dir");
@txt_file=grep(/\w/,readdir(DIR));
foreach $txt_file (@txt_file) {

if($txt_file =~ /^\d/) {

print LOG_FILE "start backup $dbm_dir$board_id/$txt_file";
open (FILE,"$dbm_dir$txt_file");
@line=<FILE>;
close (FILE);

open (FILE,">$backup_dir$board_id/$txt_file");
foreach (@line){
print FILE "$_\n";
}
close (FILE);
print LOG_FILE "........ completed \n";
}
}

#³Æ¥÷ DBM ÀÉ®×
@backup_data = (news_data,post_data,subject_data,s_post_data,s_subject_data); #³Æ¥÷¸ê®Æ¦Cªí

foreach $backup_file (@backup_data) {
print LOG_FILE "start backup $dbm_dir$backup_file ";
dbmopen (ÚTA,"$dbm_dir$backup_file",0666) || errormesg("µLªk¶}±Ò $dbm_dir$board_id/$backup_file");
%temp=ÚTA;
dbmclose (ÚTA);

@data_entry=keys %temp;

foreach $entry(@data_entry) {

@temp1=split(/$gap/,$temp{$entry});
$temp2=$entry."$gap";
$temp2=$entry."$gap".$temp{$entry};
$temp2 =~ s/\n//g;
push (@output,$temp2);
}
$output_file="$backup_file.html";



open (FILE,">$backup_dir$board_id/$output_file") || errormesg("µLªk¶}±Ò $dbm_dir$board_id/$output_file");
foreach (@output){
print FILE "$_\n";
}
close (FILE);
@output="";
print LOG_FILE "........ completed \n";

}
return_url("$edit_url?board_id=$board_id\&type=admin");
}
-----------------------------------------------------------

please give me some advice and suggestions for how to change
the script!