Or rather than `pwd`, use Cwd; and then set $abspath to cwd(). That will, the documentation says, most likely do `pwd` on Unix systems. However, Cwd will work on Windows and other systems where pwd isn't available.

Makeshifts last the longest.