use Mail::Cclient;
print "1..3\n";
print "ok 1\n";
Mail::Cclient::parameters(undef,'USERNAME' => "hdias") or print "not ";
print "ok 2\n";
Mail::Cclient::parameters(undef,'USERNAME') or print "not ";
print "ok 3\n";
use Mail::Cclient;
print "1..3\n";
print "ok 1\n";
Mail::Cclient::parameters(undef,'USERNAME' => "hdias") or print "not ";
print "ok 2\n";
Mail::Cclient::parameters(undef,'USERNAME') or print "not ";
print "ok 3\n";