my $Command = '"C:\\Program Files (x86)\\<somepatth>.exe"';

my $CommandNew =  '"C:\\Program Files (x86)\\vs.exe"'; 
my $ID = Proc::Background->new($CommandNew)

use Win32; 
. 
. 
. 
my $Command =  'C:\\Program Files (x86)\\vs.exe'; 
my $commandNew = Win32::GetShortPathName($Command); 
my $ID = Proc::Background->new($CommandNew);

#!/usr/bin/perl 
 
use strict; 
use warnings; 
use Win32::Process; 
 
my $cmd  = 'C:/Program Files/TextPad 5/TextPad.exe'; 
 
Win32::Process::Create(my $Proc, 
                        $cmd, 
                        '', 
                        0, 
                        DETACHED_PROCESS, 
                        ".")|| die ErrorReport(); 
 
sub ErrorReport{ 
    print Win32::FormatMessage( Win32::GetLastError() ); 
}