sub savethings {
	# here we receive the entry-widget (and the save-button, too)
	my ($savebutton,$entry) = @_;
	# delete text in entry
	$entry->set_text("");
	# save things 
	# ...
}