my $filename = "something";
while ( -l $filename ) 
{
  eval { $filename = readlink $filename }
}