my ($uname,$fname,$fgroup,$dmod,$accts);