Select Code to Download

#!/usr/bin/perl

use Tk;
...
  my $self = shift;
  $$self->insert('end', join('',@_));
}