package Test.pm;

sub new
{
	my ($self, $value) = (@_);
	my @return

	%return = ("code" => 1, "fault" => "You didnt even send a value to me!\n") if (!$value);
	%return = ("code" => 0, "value" => "Cool, you sent me $value\n") if ($value);
	
}