$MW->bind('Tk::Entry', '<Control-v>',\&overwrite_paste);

sub overwrite_paste{
	my $entry = $_[0];
	if($entry->selectionPresent){
		$entry->delete('sel.first', 'sel.last');
		$entry->selectionClear;
		$entry->insert(0,$entry->clipboardGet);
	}
}