Select Code to Download

use Data::Dumper;

...
    warn Dumper \@_;
    $orig->(@_)
};

...
$VAR1 = [
          bless( [
...
                          ], 'Tk::Callback' )
                 ], 'Tk::After' )
        ];