# see:
open(NAME, "< file") || die $!;
print("one", "two", "three");

# and see:
chop $string;
carp "Some error.";

# but see:
print "a string";
my @stuff = split /\s/;

##</code><code>##

# a comment.

# a multi-
# line comment.

##</code><code>##

#a comment.

#a multi-
#line comment.