#!/usr/bin/perl -w
use strict;

print blah(); #Note: print blah instead of print blah() won't work!
print "\n";
print lots_of_blah();

print "\n";
print blah(), " ", lots_of_blah(),"\n";
print lots_of_blah_with_newlines();
print blah(), " ", join(" ",lots_of_blah()),"\n";


sub blah
{
   return "more blah";
}

sub lots_of_blah
{
   my @stuff = qw(a b c d);
   return @stuff;
}

sub lots_of_blah_with_newlines
{
   my @stuff = ("a\n", "b\n", "c\n", "d\n");
   return @stuff;
}

__END__
prints...

more blah
abcd
more blah abcd
a
b
c
d
more blah a b c d