Select Code to Download

$widget->fileevent($fh, readable => sub {
    if (defined(my $read = scalar <$fh>)) {
...
        $widget->fileevent($fh, readable => '');
    }
});

#!/usr/bin/env perl

...
        }
    }
}