sub save_from_entry_widget
{
    my ($widget, $filename) = @_;
    my $text                = $widget->get();
    open my $fh, '>>', $filename or die "Cannot append to '$filename': $!\n";
    print $fh $text;
}