newbie question

[mmaz]

Hi there,

Please look at the code below:

#!/usr/bin/perl

#use CGI::Carp qw(fatalsToBrowser);
use strict;

BEGIN {
use Cwd;
}
BEGIN {
my $directory = cwd;
unshift @INC,$directory;
unshift @INC,".";

}

use BAC::Common::Modules::Common;
use BAC::CommunityMembers::Modules::Login;
$BAC:ROGRAM_NAME = "login.cgi";
&BAC::CommunityMembers::Modules::Login::Init();


1- Why do I get an internal server error when I comment the last two lines?

2- How can I print Cwd?

Thanks,

Marie

 

[mmaz]

solved my problem. I still don't know why I was getting an error, but I printed cwd using getcwd()