<script language="JavaScript" type="text/javascript">

function frame_schlieszen () {

     parent.frames[2].close();

// oder 

     parent.NameDesFrames.close();

}</script>

use strict;
use Tk;

my $mw = MainWindow -> new();
my $frame = $mw -> Frame(-width,20,-height,30)->pack();

del_frame($frame);

MainLoop;

sub del_frame {
  my $frame = shift;
  $frame -> destroy();
  undef $frame;
}

sub del_frame {
    for my $frame (@_) {
        $frame -> destroy();
        undef $frame;
    }
}