BEGIN {
	unshift @INC, $1 if $0 =~ m!(.*[/\\])!;
}