I've assumed you meant "... pass a Perl module at a time ...". If that's right, this does what you want using Module::Info:

#!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();
}
[download]

Here's some sample output:

$ version_prob.pl
Carp
Carp v1.15
Scalar::Util
Scalar::Util v1.23
Module::Info
Module::Info v0.32
blah
Can't find module: blah
Data::Dumper
Data::Dumper v2.126
<Ctrl-D>
[download]