97,98d96
< my $username = 'joe_user';
< my $password = 'joe's-pwd';
102,106c100,101
< 	   "debugtrace=s" => \$debugtrace,
< 	   "username=s" => \$username,
< 	   "password=s" => \$password
< 	   ) or die $syntax;
< 	   
---
> 	   "debugtrace=s" => \$debugtrace) or die $syntax;
> 
112,114d106
< $username = `echo -n $username|mmencode`; chomp $username;
< $password = `echo -n $password|mmencode`; chomp $password;
< 
156c148
<     my $banner = $client->hear;  # hear as client 
---
>     my $banner = $client->hear;
160,175c152
<     #####
<         my $host = substr($what, 4);
< 	if (uc(substr($what, 0, 4)) eq 'HELO') {
< 	    $client->say('EHLO' . $host);
< 	    $what = $client->hear; # hopefully '250-... 250 ...'
< 	    $client->say('AUTH LOGIN');
< 	    $what = $client->hear; # hopefully '334 VXNlcm5hbWU6'
< 	    $client->say($username); # base64-encoded username 
< 	    $what = $client->hear; # hopefully '334 UGFzc3dvcmQ6'
< 	    $client->say($password); # base64-encoded password
< 	    $what = $client->hear; # hopefully '235 ...'
< 	    $server->ok('250 Nice to meet ya,' . $host);
< 	    next;
< 	}elsif ($what eq '.') 
<     #####if ($what eq '.')   
<             {
---
> 	if ($what eq '.') {