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

##</code><code>##

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