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