Module test

#!/usr/bin/perl -T package CWI::Message; use warnings; use strict; use CGI::Carp qw(fatalsToBrowser); use Exporter; use vars qw( $VERSION @ISA @EXPORT ); $VERSION = 1.00; @ISA = qw( Exporter ); @EXPORT = qw( &get_msg ); sub get_msg{ return 'message from module' } 1; ##

##

#!/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