BEGIN {
	my $lib1=$ENV{SCRIPT_FILENAME} || $ENV{PWD};
	($lib1)=($lib1=~/(\/home\/\w+\/)/);
	$lib1.="perl5/lib/perl5";
	unshift @INC,$lib1;
#	map { print " $_\n" } @INC;
}