use autodie qw(system chdir);  # or qw(:all)

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

##</code><code>##

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");