$ perl -e 'printf "%s\n", readlink "/proc/self/path/a.out"'
/usr/local/perl-5.8.4/bin/perl

##</code><code>##

procselfexe=''
val="$undef"
case "$d_readlink" in
"$define")
	if $issymlink /proc/self/exe ; then
		$ls -l /proc/self/exe > reflect
		if $contains /`basename $ls` reflect >/dev/null 2>&1; then
			echo "You have Linux-like /proc/self/exe."
			procselfexe='"/proc/self/exe"'
			val="$define"
		fi
	fi
	...