Select Code to Download

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