帮我用perl语言语句写一个仿真归脚本，要请求脚本自动查找当前面文件夹下的以“test_case”开头的所有的子文件夹，打印出子文件夹列表的个数，然后并进入各个子文件夹，并执行各个子文件夹下的startsim命令

好的，以下是修改后的Perl脚本，满足您的要求：

#!/usr/bin/perl

use strict;
use warnings;

my $dir = './'; # 当前文件夹

opendir (my $dh, $dir) or die "无法打开目录: $!";

my @test_case_dirs = grep { /^test_case/ && -d "$dir/$_" } readdir($dh); # 查找以“test_case”开头的子文件夹

closedir $dh;

my $num_dirs = scalar(@test_case_dirs); # 子文件夹列表的个数

print "子文件夹列表的个数为：$num_dirs\n";

foreach my $test_case_dir (@test_case_dirs) {
  chdir "$dir/$test_case_dir" or die "无法进入目录: $!"; # 进入子文件夹
  system("startsim"); # 执行startsim命令
}

请将该脚本保存为.pl文件并在命令行中运行即可。