sub get_info {
  my $self = shift;
  my $ID = shift; # or @_
  #whatever..
}