sub _backtick_pwd { my $cwd; chop($cwd = `pwd`); $cwd; }