Select Code to Download

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

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

   if ( defined( $settings{ "DEBUG" } ) )
   {
       $msg->attach
...
                 ]
      );
   }

   my $cgi         = new CGI;
   my $sentfile    = $cgi->upload( 'sentfile' );
   my $sentsize;
...
      fileparse_set_fstype( "MSDOS" );  # risky assumption?
      my ( $sentname ) = fileparse( $sentfile );
   }