sub push_button {
    my $celsius = $ent -> get();
    my $farienhiet = ($celsius*9/5)+32;
    my $msg = sprintf( "%s Celsius = %3.1f Fahrenheit\n", $celsius, $farienhiet )
    $txt -> insert('end', $msg);
}