#!/usr/bin/perl -w

use strict;
use MIME::Base64;

#my ($user, $pass) = @ARGV;
#die "$0 <user> <pass>\n" unless $user;
#$user = "" unless $user;
#$pass = "" unless $pass;

#print "AUTH LOGIN " . encode_base64("$user\000$pass", '') . "\n";
#print "AUTH PLAIN " . encode_base64("\000$user\000$pass", '') . "\n";


my $unenc = join ("\000", @ARGV);
#my $unenc = ("$user\000$pass\000");

print "AUTH LOGIN " . encode_base64("$unenc", '') . "\n";
print "AUTH PLAIN " . encode_base64("\000$unenc", '') . "\n";