Select Code to Download

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

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

use IPC::System::Simple qw(system);
use Fatal qw(chdir);
...
system("foo --bar baz");
chdir("..");
system("bar --foo baz");