if (-l $file) { $dest = readlink $file }