my $FileName = $subdir ."_". sprintf("%04d_Message.txt", $num);