print "World\n";
BEGIN { print "Hello " };

##</code><code>##

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

##</code><code>##

package mylib;
use constant {
	MODULE_PATH => __FILE__,
	CONF_PATH   => (__FILE__ =~ s/pm$/conf/ir),
};
print CONF_PATH;