my $cmd = "dir /b $dir\\*.bat";
    print "cmd = $cmd\n";
    my $ret = `$cmd`;