# 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/;