#!/usr/bin/perl -wd

use Tk;

$main = MainWindow->new();

# Container frame for dynamic subframes
$fmain = $main->Frame(-borderwidth=>0)->pack(-side=>'top',-fill=>'both');

# Dymanic subframes
for ($a=0;$a<=1;$a++) {
$frame[$a] = $fmain->Frame(-borderwidth => 0)->pack(-side=>'left');
$frame[$a] -> Label(-text => "Frame " . \$whichframe[$a] ) -> pack;
$frame[$a] -> Button(-text => "Delete frame", -command => \&rmv ) -> pack;
}

MainLoop;

sub rmv {
#Need to delete the frame here.

}