use warnings;
use strict ;

my $temp = '"C:\Program Files\Microsoft Visual Studio .NET 2003\Vc7\bin\vcvars32.bat"';

my $cmd = "start $ENV{comspec} /k $temp";

if (system ($cmd)) {
    warn 'command failed with '.$? >> 8;
}