#!perl
use strict;
my $final = qx("cscript out2.vbs //NoLogo");
print "Final: --> $final\n"