sub scan {
    my ($class, $params) = @_;


    # This should stop the event loop ?
    Mojo::IOLoop->singleton->reset;

    my $data;
    my $ioloop = Mojo::IOLoop->new;
    my $delay = $ioloop->delay(
        sub {
            my $delay = shift;
            $data = \@_;
            print STDERR sprintf("Inside finish: $$\nData: %s", Dumper($data));
        }
    );

    my $ua = Mojo::UserAgent->new;
    $ua->get('http://yahoo.com' => $delay->begin);
    $ua->get('http://www.cpan.org' => $delay->begin);

    $delay->wait;
    return $data;
}