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

##</code><code>##

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

##</code><code>##

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