my $final2 = system("cscript out2.vbs");
print STDOUT "Final2: $final2\n";