use strict;
use warnings;

foo ("Darth", "Vader");

sub foo 
{
	my ($bar,$baz) = @_;
	print "$bar $baz";
}