Select Code to Download

    Dim num1, num2, final, str
    num1 = 30
...
    'MSGBOX str & final
    'WScript.Quit(final)
    Wscript.Echo final

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