I'm wondering how I could create a relative symlink in perl.

Currently I'm using symlink in a perl script running in a docker container. The created link is an absolute link - for the container. On the docker host otoh this link is a broken link.

Now I'm wondering whether or not it's possible to create relative links in perl. I fear this can only be done by changing to the directory where the original file resides or by relying on a systemcall invoking ln -rs …, right?

But maybe someone here has another good idea?