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