use Tk;
$mw=tkinit;
$ca=$mw->Canvas(qw{-bg white})->pack;
$fl=$mw->Canvas(qw{-bg red width 60 height 50 });
$fl->place(qw{ -anchor n -relx 1.0 }, -in => $ca );
MainLoop;