#!/usr/bin/perl -w

#######################################################
# class4_01_subroutine1
#
# first example of a subroutine/user-defined function
#
# modified by Sharon Tuttle from "Learning Perl",
#    by Schartz and Phoenix
#
# last modified: 4-17-03
#######################################################

# WHEN CALLED, just prints a message of success
sub my_first_subroutine
{
    print "**************************\n";
    print " MY FIRST PERL SUBROUTINE\n";
    print "**************************\n";
}

# notice, though --- subroutine doesn't DO anything until it is called;
# this script will compile, but not do anything!

# end of class4_01_subroutine1