1 2 3 4 5 6
#!/usr/bin/perl use strict; foreach my $module ( @ARGV ) { eval "require $module"; printf( "%-20s: %s\n", $module, $module->VERSION ) unless ( $@ ); }