sub setInformation {
  my $self = shift;
  my $device = shift || $self->{device};
  $self->{info} = _setInformation($device);
}

sub _setInformation {
  my $device = shift;
  my $model = `hdparm -i $device`;
  return $model =~ /model=([^,]+)/i;
}

##</code><code>##

sub new {
  my $class = shift;
  my $device = shift;
  my $self = {
    'device' => $device,
    'info' => _setInformation($device), 
  };
  bless $self, $class;
}