Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
...

MainLoop;
  2. or download this
    #!/usr/bin/perl

...
    $top->destroy;
}
  3. or download this
    #!/usr/bin/perl
use warnings;
...
   }
   return ( $value, $u );
}