#!/usr/bin/perl -w

use strict;

my ($username, $domain) = split(/@/, shift);
if (! ($username && $dominio)) {
  $0 =~ s|.*/||;
  die("Usage: $0 <username\@domain>\n");
}

# do actual stuff