#! perl -w
sub test {
	my $parm = $_[0] || $_;
	print $parm, $/;
}

test( "fred");
test for qw(the quick brown fox);
__END__
# Output
C:\test>192129
fred
the
quick
brown
fox

C:\test>