##
print font( { color => "red" }, "This text is in red");
####
This text is in red
####
span({style=>"color:red"}, "This text is in red");
####
print p("I like red text");
# or
print p("I like ", font({color=>"red"}, "red"), " text");
####
print <I like red text.
END_OF_TEXT
## ##
perl -e 'print "How sweet does a rose smell? "; chomp ($n = ); $rose = "smells sweet to degree $n"; *other_name = *rose; print "$other_name\n"'