Select Code to Download

sub confirm(){
        if($gGui{single}==1){
print "source variable BEFORE fix_path $gGui{original_source}\n";
...
.
.
.

sub fix_path{
        my ($path) = @_;
        my @patharray= split '/', $path;
...
        }#foreach
        return $path;
}#fix_path