#!/usr/local/apps/perl/bin/perl
########################################################################
#                                                                      #
#  WHO:    John L. Moreland                                            #
#                                                                      #
#  WHAT:   proto2                                                      #
#                                                                      #
#  WHY:    Demonstrates the use of subroutine prototypes               #
#          and "new" style subroutine calls.                           #
#                                                                      #
#  WHERE:  Opus Software                                               #
#                                                                      #
#  WHEN:   Thu Sep 11 17:26:16 PDT 1997                                #
#                                                                      #
#  HOW:    PERL                                                        #
#                                                                      #
########################################################################

sub aList(@)
{
	my( @l ) = @_;
	my( $r ) = @_;

	print join( " ", (caller(0))[3] ) . "\n";
	print "   l=", @l, "\n";
	print "   r=", $r, "\n";
	print "  *r=", @$r, "\n";
}

sub aRef(\@)
{
	my( @l ) = @_;
	my( $r ) = @_;

	print join( " ", (caller(0))[3] ) . "\n";
	print "   l=", @l, "\n";
	print "   r=", $r, "\n";
	print "  *r=", @$r, "\n";
}

#############################################################################
##################################  MAIN  ###################################
#############################################################################

@foo = ( "Hello", "World" );
aList( @foo );
aRef( @foo );