$link->url

##</code><code>##

my @links = $mechObject->links();
foreach my $link (@links) {
   print $link->url;
}

##</code><code>##

print "Here it is: @{[ $link->url ]}!\n"