I use Perl from Red Hat package.
The script developed with Tk. Generally, script works correctly. This error shows only when I exit from my application.
This code for exit button:

   Button(-text=> "Exit", 
          -command=> sub { Quiting::quiting(); }, )
->pack(-side=> 'bottom', -fill => 'x', -expand => 1 );
[download]

and

      package Quiting;
      
      sub quiting {
          # Delete a temporary file
          system ('rm /tmp/mytmp.txt') 
                        if (-e '/tmp/mytmp.txt');
          exit(0);
      }
[download]

      
-------->
SV* sv_bless(SV* sv, HV* stash);
[download]