sub get_info {
        my ($stuff,$ID) = @_;
        print "\nstuff = ".$stuff."\nID    =".$ID."\n\n";