Select Code to Download

#!/usr/bin/perl

...
    $text -> insert('1.0',"$talk");
    $button->bind('<ButtonPress>', \&one);
  }