如何在Perl中复制符号链接？

#!/usr/bin/perl

use strict;
use warnings;

# 创建一个符号链接
symlink("original_file", "symbolic_link") or die "Cannot create symbolic link: $!";

# 复制符号链接
my $source = "symbolic_link";
my $destination = "copied_symbolic_link";

# 读取符号链接的目标文件或目录
my $target = readlink($source) or die "Cannot read symbolic link: $!";

# 创建新的符号链接，指向原始文件或目录
symlink($target, $destination) or die "Cannot create copied symbolic link: $!";

print "Symbolic link copied successfully.\n";