Re^3: How can one create a text file in the subfolder of a folder?

Thank you for your suggestion.

You're welcome. But what I wrote wasn't a suggestion - it was telling you where the problem is.
But since you thank me for a suggestion, here is one:

use Cwd;
my $cwd = getcwd();
...
map {mkdir $_; chdir $_;} @folders;
chdir $cwd;
[download]

perl -le'print map{pack c,($-++?1:13)+ord}split//,ESEL'

Comment on Re^3: How can one create a text file in the subfolder of a folder? Download Code