while( -l $dir ) {
  $dir = readlink $dir
}