Help for this page

Select Code to Download

Select or download this

if (ref $millis eq 'ARRAY') {
        $callback = Tk::Callback->new($millis->[1]);
        $millis = $millis->[0];
    }

Select or download this
```
foreach my $vref (@_) {
```