#!/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 = $inst -> version ($modul);
		print "Version von '$modul': $version\n" if !defined $version || $version eq '' || $modul eq 'Class::Std' || $modul eq 'version';
	}
}