$ perl -w
sub foo { my $foo = shift }
sub bar { &foo; warn @_ }
bar("baz","quux","\n");
__END__
quux