$count = shift || die "Need a count!\n";