#!/usr/bin/perl -w

#######################################################
# lect03_return1
#
# shows what Perl print function returns... (a 1, if succeeds)
# 
# modified by Sharon Tuttle from "Learning Perl",
#    by Schartz and Phoenix
#
# last modified: 9-6-04
#######################################################

# demonstrate what print call returns

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

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

# end of lect03_return1