BEGIN {
	use File::Basename;
	chdir((sub { return dirname((caller(0))[1]) })->());
}