sub get {
$page2->Label(-text => $entry->get())->pack() if($entry->get());
$entry->delete('0.0','end');
}