$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);
    }
}
[download]