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

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';
    }
}