printf SENDMAIL "%-16s: %-20s\n" => @$_ for
  ["Sequence Number" => $sequence_number],
  [ Host => $message{host} ],
  [ Drive => $message{drive} ],
  [ Model => $message{model} ],
  [ Microcode => $message{mml} ],
  [ "Message Type" => $message{type} ],
  [ "Message Code" => $message{code} ],
  [ Severity => $message{severity} ],

  $message{type} eq "SIM" ? (
    [ "First FSC" => $message{first_fsc} ],
    [ "Last FSC" => $message{last_fsc} ],
  ) : (
    [ VOLSER => $message{volser} ],
  );