

sub foo {
	$_[0] = 'bite me';
}

$bar = 'dog';

foo ($bar);

print "$bar\n";
