use IPC::System::Simple qw(system);
use Fatal qw(chdir);

system("foo --bar baz");
chdir("foobar");
system("foo --bar baz2");
system("foo --bar baz");
chdir("..");
system("bar --foo baz");