#!/usr/bin/perl -w
use strict;
use warnings;

my (@modules,$inst);
my $error = '';
open my $oldstd, ">&STDOUT" or $error = "Kann STDOUT nicht kopieren wegen >$!<";
if ($error eq '') {
        open STDOUT,'>',"foo.out" or $error = "Kann STDOUT nicht umleiten wegen >$!<";
        if ($error eq '') {
                eval "use ExtUtils::Installed; \$inst = ExtUtils::Installed -> new (); \@modules = \$inst -> modules ();";      # muss zwingend in eval, weil sonst eine nicht unterdrückbare Meldung wg. fehlendem Compiler rauskommt!
                open STDOUT,">&",$oldstd;
                close $oldstd;
        }
}
if (scalar @modules) {
        for my $modul (sort {lc $a cmp lc $b} @modules) {
                print $modul . " == >" . $inst -> version ($modul) . "<\n";
        }
}