my $addr = shift;
unless ($addr) {die $USAGE}
my ($username, $domain) = split /\@/, $addr;