Help for this page
$info = $db_info->get_info($ID);
sub get_info { my ($class,%db_info,$ID) = @_;
sub get_info { my ($stuff,$ID) = @_; print "\nstuff = ".$stuff."\nID =".$ID."\n\n";