use warnings;
use strict;
use File::Temp qw/tempfile/;
use IPC::System::Simple qw/capturex/;

my ($tfh,$tfn) = tempfile( SUFFIX=>'.vbs', UNLINK=>1 );
print $tfh <<'END_VBS';
    Dim num1, num2, final
    num1 = 30
    num2 = 50
    final = num1*num2
    WScript.Echo(final)
END_VBS
close $tfh;
print "running $tfn\n"; # Debug
my $final = capturex('cscript','//nologo',$tfn);
chomp($final);
print "final: '$final'\n";