#Damit man die Subroutine auch innerhalb des Packages verwenden kann
	#wird hier die Anzahl der Parameter geprüft
	my @param = @_;
	my $size = @param;
	my $user;
	if($size eq '2')
	{
		$user = $param[1];
	}
	else
	{
		$user = $param[0];
	}