my $class = shift;
my $self = {};
@$self{qw{x y w h}} = @_;
bless $self, $class;