use Data::Dumper;

my $orig = *Tk::After::once{CODE};
local *Tk::After::once = sub {
    warn Dumper \@_;
    $orig->(@_)
};