Select Code to Download

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

sub new {
  my $class = shift;
...
  };
  bless $self, $class;
}