Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/env perl -l

...

    $$tl->grab();
}
  2. or download this
    Nothing chosen yet!
You chose: B
  3. or download this
    sub run_gui {
    my $choice = shift;
...
    ...
    $$choice = $chosen;
}
  4. or download this
    Do something before GUI.
Hit <Enter> to start GUI: 
...
You chose: B
Your choice: B
Do something after GUI.
  5. or download this
    #!/usr/bin/env perl -l

...

    $$tl->grab();
}