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

##</code><code>##

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


##</code><code>##

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