use Cwd qw(abs_path);
my $absolute_path = abs_path (readlink $link);