if ( $copiesto )
      { $msg->add( CC => $copiesto ); }


##</code><code>##

   $msg->attach
      ( Disposition => 'attachment',
        Type        => $sentinfo->{ 'Content-Type' },
        Encoding    => 'base64',
        Filename    => $sentname,
        FH          => $sentfile
       );


##</code><code>##

   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 )
                 ]
      );
   }


##</code><code>##

   my $cgi         = new CGI;
   my $sentfile    = $cgi->upload( 'sentfile' );
   my $sentsize;
   my $sentinfo;
   my $sentname;

   if ( $sentfile )
   {
      $sentsize    = -s ( $sentfile );    # file size
      $sentinfo    = $cgi->uploadInfo( $sentfile ) ;
      fileparse_set_fstype( "MSDOS" );  # risky assumption?
      my ( $sentname ) = fileparse( $sentfile );
   }