index.pl

use strict;

# Add the path to the Module to @INC
use lib 'C:/inetpub/wwwroot/Altest/AlsModules';

# Load the Module, and Export has %FormData

use AlCommon;


# Set the Application Details

our %ApplicationDetails;

$ApplicationDetails{Name} = 'Test App';
$ApplicationDetails{Version} = '1.0';
$ApplicationDetails{Comments} = 'This is my Test App';


# Display the ApplicationAbout function
AlCMSCommon->ApplicationAbout();

# End


AlCommon.pm

package AlCommon;

use strict;
use Exporter;

our $VERSION     = 1.00;
our @ISA         = qw(Exporter);
our @EXPORT   = qw(AlsTemplateBuilder);
our @EXPORT_OK   = qw(%FormData);

sub ApplicationAbout {
 
print “About Application :\n”;
 
foreach my $AboutItem (qw(Name
                           Version
                           Comments)) {
print $AboutItem = $main::ApplicationDetails{$AboutItem}\n”;
}
}