Read from /dev/urandom

gistfile1.pl

use strict;
use warnings;
use Mojo::IOLoop::Stream;

my $stream = Mojo::IOLoop::Stream->new(IO::File->new("</dev/urandom"));
$stream->on(read => sub {
    my ($stream, $bytes) = @_;
    print STDERR "Read from stream\n";
});
$stream->on(error=>sub {
    my ($stream, $err) = @_;
    print STDERR "ERROR $err\n";
});
$stream->on(close=>sub {
    my ($stream) = @_;
    print STDERR "CLOSED\n"; #this fires right away
});

$stream->start;
$stream->reactor->start;