eval {
   use Foo::Bar;
}
die "Error: $@" if ($@);

#!/usr/bin/perl

use strict;
use warnings;
use diagnostics;
use File::Find;
use CGI::Carp qw(fatalsToBrowser);

my $installed = "";

find ( sub { push (my @files, my $File::Find::name) if /\.pm$/; }, @INC);
foreach my $i (@files){
        my $absolut = $i;
        foreach my $a (@INC){
               
 if(-e("$a") && $a ne "."){
               
         $i =~ s/$a//gi;
               
 }
        }
        $i =~ s/^\///g;
        $i =~ s/\//::/g;

        $installed .= qq~Modul: $i, absoluter Pfad: $absolut<br>~;
}

print "Content-type: text/html\n\n";
print $installed;

exit;

use File::Find ();

foreach my $root (@INC) {
    &File::Find::find(
        sub {
            return unless /\.pm/;
            my $module = $File::Find::name;
            $module       =~ s/^\Q$root\E\/(.+)\.pm/$1/
              and $module =~ s/[\/\\]/::/g
              and print $module. "\n";
        },
        $root
    );
}    # foreach