#!/usr/bin/perl
use warnings;
use strict;
use Tk;

my $mw = new MainWindow; 

my $ent = $mw -> Entry() -> pack();

$ent->focus;

$ent->bind('<Control-a>', \&clear  );
$ent->bind('<Delete>', \&clear  );

MainLoop;

sub clear {
 $ent->delete(0,'end');
}
[download]

I think the OP meant "Use Ctrl+A to select the entire entry, and then Del to delete it". Or maybe not?

Thats easy enough to accomplish, since after a selection, a Delete press will delete the selection.

#!/usr/bin/perl
use warnings;
use strict;
use Tk;

my $mw = new MainWindow; 

my $ent = $mw -> Entry(
          -bg => 'white',
          -selectbackground => 'hotpink',
        ) -> pack();

$ent->focus;

$ent->bind('<Control-a>', \&select_it  );

MainLoop;

sub select_it{
 $ent->selectionRange(0,'end');
}
[download]

---

I'm not really a human, but I play one on earth.
Old Perl Programmer Haiku ................... flash japh