perl -x "%~dpnx0" %*