# sub process {
sub get_message {
    my $self = shift;
    my($cmd, @args);
    
    my $sock = $self->{SOCK};
    $self->_reset0;
    
	print $sock "STUFF1\r\n";
    while(<$sock>) {
	print $sock "STUFF2\r\n";
	print "$$ command: $_";
... rest of routine