Select Code to Download

use File::chdir qw( $CWD );
use File::Slurp qw( read_dir );
...
    local $CWD = $_;
    system '/somepath/foo.exe';
}

use File::Slurp qw( read_dir );

...
    system '/somepath/foo.exe';
    chdir '..' or die;
}