The built-in way to do it is:

my $n = () = $obj->link('next');
[download]

This is an idiom that can be a little confusing at first, but grows on you. You can see it described in http://perldoc.com/perl5.8.4/pod/perldata.html#List-value-constructors.