sub file_name {
  my %args;
  @args{qw/client_number MM DD S/} = @_;

  for (keys %args) {
    defined($args{$_}) or die "\$$_ not defined";
  }

  local $";
  "I@args{qw/client_number MM DD S/}";
}