system 'start', '"c:\program files\junk.txt"';

##</code><code>##

system 'start', 'C:\"program files"\junk.txt';

##</code><code>##

sub logfile{
        my $file = "$gGui{complogpath}/$gGui{complog}.txt";
        my @args = ("start",$file);
        for (@args) {
            s[ 
                ( [\\/] )               ## A path delimiter
                ( [^\\/]* \s [\\/]* )   ## Two or more non delimiters 
                                        ## including a space
                ( [\\/] )               ## Another delimiter
            ][$1"$2"$3]gx;              ## Quote the path element
        };
        system(@args) == 0
          or warn "Couldn't launch '$file' : $!/$?/$^E";
}#logfile