# The lines from here to the =cut are part of Perl's
# internal documentation system.  If you want 
# view the documentation use the command:
#
#	pod2text <script>
#
=pod

=head1 NAME

begin.pm - Demonstrate the use of BEGIN / END blocks

=head1 SYNOPSIS

    require begin_mod;

=head1 DESCRIPTION

The I<begin> package jsut demonstrates when begin and end are called.

=head1 AUTHOR

Steve Oualline, E<lt>oualline@www.oualline.comE<gt>.

=head1 COPYRIGHT

Copyright 2002 Steve Oualline.
This program is distributed under the GPL.  

=cut
use strict;
package begin_mod;

END {
    print "END\n";
}

print "Module\n";

BEGIN {
    print "BEGIN\n";
}
1;