cd "`dirname "$0"`"
use File::Basename; chdir(dirname(__FILE__));
chdir(dirname(__FILE__));
cd /d %~d0%~p0