sub new
{
shift;
my $x={@_};
}