sub logfile{
        my $file = "$gGui{complogpath}/$gGui{complog}.txt";
        my @args = ("start",$file);
        for (@args) {
                  if (/ /) { $_ = qq{"$_"};
                }
        };
        system(@args) == 0
          or warn "Couldn't launch '$file' : $!/$?/$^E";
}#logfile
##</code><code>##

sub help{
        my $file = "Guide.pdf";
        my @args = ("start",$file);
        for (@args) {
                  if (/ /) { $_ = qq{"$_"};
                }
        };
        system(@args) == 0
          or warn "Couldn't launch '$file' : $!/$?/$^E";
}#help