BEGIN{($path = $0) =~ s[[\\/][^\\/]+$][];}
BEGIN{ use lib $path;}