use constant PATH => 'XX/XDC/';
my $change=PATH."raja";

require("$change.pm") || die "$!";
$change=~ s/\//\:\:/g;
$obj = $change->new();
print $obj;

Output:
-------
Can't locate object method "new" via package "XX::XDC::raja" (perhaps you forgot to load "XX::XDC::raja"?) at xyz.pl.

##</code><code>##

unshift(@INC,"XX/XDC");
require raja;
$obj = raja->new();
print $obj;
output:
-------
raja=HASH(0x8f38d1c)