Absolute path to directory of the current perl program

[Gabor Szabo]

I came up with this:

say $*PROGRAM-NAME.IO.absolute.IO.dirname;

but I wonder if there is a simpler way to do it?

regards
    Gabor