#!/usr/bin/perl use strict; foreach my $module (@ARGV) { eval "require $module"; printf("Can't find %s\n", $module) if $@; printf("%-20s: %s\n", $module, $module->VERSION) unless $@; }