my $final = qx("cscript out2.vbs");
print STDOUT "Final: --> $final\n";