Select Code to Download

BEGIN {
    if ($ENV{PAR_0}) {
...
    }
    #print $ENV{PATH};
};

#  not fully tested, not properly adapted to the Tk case,
#  and likely has side effects
...
    my $sep = $Config{path_sep};
    $ENV{PATH} = join $sep, @paths, $ENV{PATH};
}