my $user = shift;
	# or
my ($user) = @_;