use File::Basename;
use Cwd;

cwd(dirname($ENV{"SCRIPT_FILENAME"}));