#!/usr/bin/perl -w

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

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

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

print "Das Programmverzeichnis ist: $FindBin::Bin";