#!/usr/bin/perl -w

#######################################################
# lect03_silly
#
# a silly subroutine that always returns 13
# 
# modified by Sharon Tuttle from "Learning Perl",
#    by Schartz and Phoenix
#
# last modified: 9-6-04
#######################################################

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

&silly;                          # calling silly in a void context

$val = &silly();                 # calling silly in a non-void context
print "silly returned: $val\n";

# playing with contexts and subroutine return values

$val = &silly() * &silly();
print "two sillies squared are: $val\n";

$val = &silly() x &silly();
print "silly silly times is: $val\n";

$val = &silly().&silly();
print "two sillies concatenated are: $val\n";

# end of lect03_silly