# 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

##</code><code>##

Net::SMTP>>> Net::SMTP(2.31)
Net::SMTP>>>   Net::Cmd(2.29)
Net::SMTP>>>     Exporter(5.60)
Net::SMTP>>>   IO::Socket::INET(1.31)
Net::SMTP>>>     IO::Socket(1.30)
Net::SMTP>>>       IO::Handle(1.27)
Net::SMTP=GLOB(0x20f758c)<<< 220 Debatable SMTP 0.2 Ready.
Net::SMTP=GLOB(0x20f758c)>>> EHLO localhost.localdomain
Net::SMTP=GLOB(0x20f758c)<<< STUFF1