ActivePerl uses a script reloc_perl to do this which in turn uses a module ActiveState::RelocateTree which documentation says:

Perl can't just be copied into a new location without relocating some files. In Windows this is less of a problem because the executable knows its actual location and uses that to find its library tree. On Unix, the location of the libraries must be encoded within the perl binary.

/J\