sub open_excel_file {		

my (
    $path_of_excel,
    $file_to_open,
        ) = @_;

use File::DosGlob 'glob';

my $prob_found = system glob($path_of_excel), $file_to_open;
#my $prob_found = system( (glob qq{"$path_of_excel"}), $file_to_open);

return ( $prob_found ? 'red' : 'green' );
}

##</code><code>##

C:\\Program\ Files\\Microsoft\ Office\\Office\\Excel.exe

##</code><code>##

C:\Program Files\Microsoft Office\Office\Excel.exe