use Cwd qw( abs_path );
$file = abs_path ($link);