$CTask = $main->Entry(-width => "40")->pack();