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