Select Code to Download

  my $req   = HTTP::Request->new(GET => $link) or die $!;
  my $res   = $ua->request($req);
...
  # Now $author contains the right name, "Mike Smith" for
  # example.
  print "AUTHOR: $n_author\n";