#!/usr/bin/perl -w

use CGI::Carp "fatalsToBrowser";
use CGI qw(:all);
use warnings;
use lib './module';

use File::Spec;
use FindBin;

my $prog_lib;

BEGIN{
  unless((defined $FindBin::Bin)&&(length($FindBin::Bin) > 3)&&(-d $FindBin::Bin)){
   use File::Basename;
   my($script,$bin) = fileparse($0);
   $prog_lib = $bin;
   unshift(@INC, File::Spec->catdir($bin,'mylibs'));
  }else{
    $prog_lib = $FindBin::Bin;
   unshift(@INC, File::Spec->catdir($FindBin::Bin,'mylibs'));
  }
}


print "Content-Type: text/html\n\n";

print "Das Programmverzeichnis ist: ".$INC[0]."<br>\$prog_lib: $prog_lib";