Select Code to Download

#!/usr/bin/env perl

...
        chmod $perm{raw_octal}, $fn or die $!;
    }
}

$ ./working --create_dir --target_dir my_foo
$ cd my_foo && ls -labhrt | tail -n 1000 | head -n 10
...
---Sr-S---  1 User Group 27 Feb 17 23:29 06040_--Sr-S---.txt
---Sr-S--x  1 User Group 27 Feb 17 23:29 06041_--Sr-S--x.txt
---Sr-S-w-  1 User Group 27 Feb 17 23:29 06042_--Sr-S-w-.txt

$ ./working --create_dir --target_dir my_foo --debug
# ---skip---
...
        );

# ---skip---