Here is an example of an "not often seen" option.

#!/usr/bin/perl
use Tk;
my $mw=tkinit;
my $frame = $mw->Frame(-bg=>'black');
$frame->place(-in=>$mw, -x=>0, -y=>0, -relheight=>0.5,-relwidth=>0.5);
MainLoop;
__END__
[download]