帮我写一个perl脚本，查找当前面文件夹下的所有子文件夹，对每个子文件夹中的以.sv结尾的文件，并在每个子文件夹中创建以.sv结尾文件明文件的软件连接，软件连接连接名称为test.sv

好的，以下是Perl脚本的代码：

#!/usr/bin/perl

use strict;
use warnings;

# 获取当前目录
my $dir = ".";
opendir(my $dh, $dir) or die "无法打开目录 $dir: $!";

# 遍历当前目录下的所有子目录
while (my $subdir = readdir $dh) {
    next if ($subdir eq "." or $subdir eq "..");
    if (-d "$dir/$subdir") {
        # 遍历子目录下的所有以.sv结尾的文件
        opendir(my $subdh, "$dir/$subdir") or die "无法打开目录 $subdir: $!";
        while (my $file = readdir $subdh) {
            next unless ($file =~ /\.sv$/);
            # 创建软链接
            symlink("$dir/$subdir/$file", "$dir/$subdir/test.sv") or die "无法创建软链接: $!";
        }
        closedir $subdh;
    }
}

closedir $dh;

这个脚本会遍历当前目录下的所有子目录，对于每个子目录，它会搜索其中的以.sv结尾的文件，并在该子目录下创建一个名为test.sv的软链接，指向找到的第一个以.sv结尾的文件。