#!perl

use 5.12.0;
use warnings;

use Module::Info;

while (my $module = <>) {
    chomp $module;
    my $mod_info = Module::Info->new_from_module($module);
    if (! $mod_info) {
        warn qq{Can't find module: $module\n};
        next;
    } 
    say join q{ v}, $module, $mod_info->version();
}