#!/usr/bin/perl
# THIS SCRIPT DOES WORK
# (if the module exists and has a normal version number)
# Get the latest version numbers of your favorite modules
# Usage: $0 Module::Name Other::Module Etc

use strict;
use warnings;
use HTTP::Tiny;

my @arg = @ARGV ? @ARGV : ('MetaCPAN::Client');

for (@arg) {
  print "$_\t",
  HTTP::Tiny->new->get("https://metacpan.org/pod/$_")->{content} =~
  /<span itemprop="softwareVersion">([^<]+)<\/span>/s, "\n"
}