Select Code to Download

use strict;
use CGI qw/:standard/;
my $ext = 'pl';
...
    }
    chdir "../" if $Dir;
}

sub
GetDirs
{
...
    }
    chdir $OldDir;
}