my $vb_cmd = q(
	Dim num1, num2, final, str
	num1 = 30
	num2 = 50
	str = "Final Value: "
	final = num1*num2
	'MSGBOX str & final
	WScript.Quit(final)
);

my $final = qx($vb_cmd);

print STDOUT "$final\n";