package MyModule2; #line 1

use strict;
use Exporter;
our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);

$VERSION     = 1.00;
@ISA         = qw(Exporter);
@EXPORT      = ();
@EXPORT_OK   = qw(add_it);
%EXPORT_TAGS = ( All  => [qw(&add_it)]); # line 11

sub add_it { 
   my $amount = shift;
   my $total = 12+ $amount;
   return ($total);
}
1;

##</code><code>##

#!/usr/bin/perl -w

print "Content-type: text/html\n\n";
#use lib "/home/jdsakroc/public_html/admin/cgi-bin";
use strict;
use warnings;
use CGI::Carp qw(fatalsToBrowser);
use MyModule2 qw(:All);

my $amount = 12;

print add_it($amount),"\n";

##</code><code>##

sub add_it { 
   my $amount = shift;
   my $total = 12+ $amount;
   return ($total);
}
1;

##</code><code>##

use MyModule;

my $amount = 12;

print add_it($amount),"\n";