use File::chdir qw($CWD);
use IPC::System::Simple qw(runx);

{
    local $CWD = '...';
    runx [0], 'make', 'this';
}