$mw = $f1->Entry(
             -textvariable => '',
            -width => 40);
$mw->pack(-side => "left");