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