Dim num1, num2, final, str
	num1 = 30
	num2 = 50
	str = "Final Value: "
	final = num1*num2
	'MSGBOX str & final
	'WScript.Quit(final)
	Wscript.Echo final

##</code><code>##

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