sub new {
    my $class = shift;
    my $device = shift;
    my $self = {
      'device' => $device,
    };
    bless $self, $class;
    $self->setInformation($device);
    return $self;
}