Help for this page

Select Code to Download

Select or download this

BEGIN {
package DT; $INC{"DT.pm"} = 1;
...
use DT qw/dispatcher/;

dispatcher( 2 ); # prints "event\n"