$widget->repeat(100,\&handler);

...
sub handler {
    my $data = $port->lookfor;
    return unless $data;
    # do stuff
    ...
}