for (qw/ name prefix server password port channel /) {
  $attributes{$_} or die "Missing attribute '$_'";
}