if ( defined( $settings{ "DEBUG" } ) )
   {
       $msg->attach
       ( Type        => 'TEXT',
         Encoding    => 'base64',
         Filename    => 'debug.txt',
         Disposition => 'attachment',
         Data => [ "Upload info\n\n",
                   "File size = $sentsize\n",
                   ( map { "$_ = $sentinfo->{ $_ }\n" } sort keys %$sentinfo ),
                   "\n",
                   "ENV Contents:\n\n",
                   ( map { "$_ = $ENV{ $_ }\n" } sort keys %ENV ),
                   "\n",
                   "Configuration Settings:\n\n",
                   ( map { "$_ = $settings{ $_ }\n" } sort keys %settings )
                 ]
      );
   }