帮我使用perl语言写一个回归脚本，要求该脚本自动查找当前文件夹下的子文件夹，并进入各个子文件夹，并且执行各个子文件夹下的startsim命令

以下是使用 Perl 语言编写的自动查找子文件夹并执行命令的脚本：

#!/usr/bin/perl

use strict;
use warnings;

# 查找当前文件夹下的子文件夹
opendir my $dh, "." or die "Cannot open directory: $!";
my @subdirs = grep { -d } map { "$_/" } readdir $dh;
closedir $dh;

# 进入各个子文件夹并执行命令
foreach my $subdir (@subdirs) {
    chdir $subdir or next;  # 进入子文件夹失败则跳过
    system("startsim");     # 执行命令
    chdir "..";             # 返回上级文件夹
}

以上代码中，`opendir` 函数打开当前文件夹，`readdir` 函数读取文件夹中的文件和文件夹列表，`grep` 函数过滤出子文件夹，`map` 函数将子文件夹名加上路径分隔符，最后得到一个子文件夹列表 `@subdirs`。

接下来，使用 `foreach` 循环遍历子文件夹列表，使用 `chdir` 函数进入子文件夹，使用 `system` 函数执行命令，最后使用 `chdir` 函数返回上级文件夹。

注意，在执行 `system` 函数时，命令的路径要正确，否则会执行失败。如果需要传递参数给命令，可以将参数拼接到命令字符串中。例如，`system("startsim -arg1 -arg2")`。