my @cmd = qw[ start /b /wait /low perl C:/Perl_activate/Run_this.pl ];
system @cmd, $var;