Select Code to Download

use strict; use warnings;
...
    Dispatch->$act($act,"PARAMS");
}

{
  no warnings 'once';
  . . .
}