#!/usr/local/apps/perl/bin/perl
#############################################################################
#                                                                           #
#  WHO:    John L. Moreland                                                 #
#                                                                           #
#  WHAT:   begin_end                                                        #
#                                                                           #
#  WHY:    Demonstrates the use of the BEGIN and END code blocks.           #
#                                                                           #
#  WHERE:  Opus Software                                                    #
#                                                                           #
#  WHEN:   Sun Sep 27 17:23:08 PDT 1998                                     #
#                                                                           #
#  HOW:    PERL                                                             #
#                                                                           #
#############################################################################

die "green\n";
END { print "blue\n" }
BEGIN { print "red\n" }