$widget->fileevent($fh, readable => sub {
    if (defined(my $read = scalar <$fh>)) {
        # Do something with $read here
    }
    else {
        $widget->fileevent($fh, readable => '');
    }
});