#!/usr/bin/perl -w

#######################################################
# class4_04_return1
#
# shows what Perl print function returns... (a 1, if succeeds)
# 
# modified by Sharon Tuttle from "Learning Perl",
#    by Schartz and Phoenix
#
# last modified: 4-17-03
#######################################################

# demonstrate what print call returns

$val = print "Hello!\n";
print "print returned: $val\n";

# end of class4_04_return1