use lib { my ($base,$path)= File::Basename::fileparse ($0); $path };