#!/usr/bin/perl use strict; use warnings; use CGI::Carp qw(fatalsToBrowser); my $path; BEGIN { $path = $ENV{ DOCUMENT_ROOT } . '/z_cwi_cgi' } use lib $path; use CWI::Message; # works as expected my $msg = ''; # 'Undefined subroutine &main::get_msg' #$msg = get_msg(); print <Module test

test_mod.cgi

$path

$msg

back in test_mod.cgi

HTML