Help for this page

Select Code to Download


  1. or download this
    my $addr = shift;
unless ($addr) {die $USAGE}
my ($username, $domain) = split /\@/, $addr;
  2. or download this
    die $USAGE unless @ARGV == 3; #or however many args you want