package mylib;
use constant {
	MODULE_PATH => __FILE__,
	CONF_PATH   => do { $_ = __FILE__; s/pm$/conf/i; $_ },
};
print CONF_PATH;