Perl: User Defined Functions

sub funny_print {

my ($name, $age) = @_;

print <<END_FUNNY_PRINT;

The person\’s name is $name,

and the ages is $age.

END_FUNNY_PRINT

return 1;

}

funny_print ("Steve", 50); # or

&funny_print("Steve", 50);

funny_print "Steve", 50; # or

# This last form is OK AFTER the defn.