for my $link ( @links ) {
    follow( $link );
};

sub follow {
  my ($link) = @_;
  warn "Following contact link;
  if ($m->follow_link( url_regex => qr/contact/i)){
      print $link->url."\n";
  }
};