#!/usr/bin/perl -w

use strict;

sub all {print "@_\n"};

sub gobble_no_proto  {return};
sub gobble_proto ($) {return};

all "foo", "bar", gobble_no_proto "baz", "quux", "fluff";
all "foo", "bar", gobble_proto    "baz", "quux", "fluff";
__END__
foo bar
foo bar quux fluff