perl中的简单文件系统操作

我想创建一个新目录，它的内容是软链接到现有目录的内容，并设置这个新目录的完全权限

我知道如何在bash中实现这一点：

mkdir -m a=rwx new_dir
cd new_dir
ln -s /path/to/old/dir/* .

---

但是在查找与perl等效的程序时遇到一些问题

mkdir -m a=rwx new_dir     in perl: ->    mkdir ('new_dir', 0777);
cd new_dir                 in perl: ->    chdir ('new_dir');
ln -s /path/to/old/dir/* . in perl: ->

    use constant OLD_DIR => '/path/to/old/dir';

    for my $oldname (glob(OLD_DIR . '/*')) {
         my $newname = $oldname;
         $newname =~ s/^.*\///s;      # Remove everything up to last "/"
         symlink ($oldname, $newname);
    }

---

当然，在Perl中，“总是有不止一种方法可以做到这一点”。

对于$oldname（）部分，我遇到了

问题。假设我的old dir路径存储为常量old_dir。对于

标题，我应该在

中添加什么？使用
File:：Next
（使用
down\u filter=>sub{0}
）解决，对于mkdir、chdir和symlink中的每一个，添加“或死”错误（此处有帮助的消息）：$！“'您尝试查看了吗？