use Cwd qw(realpath);
print "'$0' is '", realpath($0), "'\n";

##</code><code>##

a {
ZERO:../p/ts/DEMO/ect
}