#!/usr/bin/perl -w

#######################################################
# class4_06_silly
#
# a silly subroutine that always returns 13
# 
# modified by Sharon Tuttle from "Learning Perl",
#    by Schartz and Phoenix
#
# last modified: 4-17-03
#######################################################

sub silly
  {
    print "this is a silly subroutine\n";
    13;
  }

$val = &silly();
print "silly returned: $val\n";


# end of class4_06_silly