#!/usr/bin/perl -w
use strict;
use warnings;
use IO::Handle;
STDOUT -> autoflush (1);
use version;
use Data::Dumper;

my ($inst,@modules);
eval 'use ExtUtils::Installed; $inst = ExtUtils::Installed -> new (); @modules = $inst -> modules ();';
if (scalar @modules) {
    my $zeile = 0;
    for my $modul (sort {lc $a cmp lc $b} @modules) {
        #print "Bearbeite Modul '$modul' und versuche, Version zu ermitteln\n";
        my $version;
        $version = $inst -> version ($modul); 
        #print "Version von '$modul': $version\n" 
        #                if !defined $version
                        #or $version eq '' 
        #                or $modul eq 'Class::Std' 
        #                or $modul eq 'version';
                print Dumper(\$version) 
                   if $modul eq "DBD::Pg" or $modul eq "CGI";
    }
}