use Cwd qw(abs_path realpath);
   #....

   my $absolute_path = abs_path($link);
   # or ...
   my $absolute_path = realpath($link);