Select Code to Download

#!/usr/bin/perl
use warnings;
...
sub released{
print 'Key: ', ${Ev('K')}, " released\n";
}

#!/usr/bin/perl
use warnings;
...
  $mw->bind("<Key>",  sub { } );
  $mw->bind("<KeyRelease>",  sub {&pressed } );
}