如何确定符号链接的perl脚本的位置？

use strict;
use warnings;

# 假设符号链接的路径
my $symlink_path = '/path/to/symlink';

# 使用readlink函数获取实际文件路径
my $real_path = readlink($symlink_path);

if (defined $real_path) {
    print "The real path of the symlink is: $real_path\n";
} else {
    die "Cannot read symbolic link: $!\n";
}

use strict;
use warnings;
use File::Spec;

# 假设符号链接的路径
my $symlink_path = '/path/to/symlink';

# 使用系统调用获取实际文件路径
my $real_path = `readlink $symlink_path`;

chomp $real_path;

if ($real_path) {
    print "The real path of the symlink is: $real_path\n";
} else {
    die "Cannot read symbolic link: $!\n";
}