Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
 $txt->insert('end', "$foo\n") ;

MainLoop;
  2. or download this
    #!/usr/bin/perl
use warnings;
...
 ++$count;
 print "$count\n";
}