Windows环境system函数使用的问题

CODE:

use strict;
use warnings;

use Time::HiRes qw (gettimeofday tv_interval);

my $t0 = 0;
my @commands_list = ();

open CONFIG, "config" or die "Can not open file: config $!\n";
while (<CONFIG>)
{
        chomp;
        push @commands_list, $_;
}
close CONFIG;

$t0 = [gettimeofday];
while (tv_interval($t0, [gettimeofday]) < 4*3600)
{
        foreach (@commands_list)
        {
                if (system("$_"))
                {
                        print "Run-in test paused\n";
                         die "Error when executing $_ $!\n";
                }
        }
}

print "Run-in test for 4 hours completed successfully!\n";