...
use File::chdir;

$CWD = '/usr/bin'; # Oh hey, in /usr/bin/
...