close.pl

use Mojolicious::Lite;

get '/' => sub {
  my $self = shift;

  # Write two chunks right away
  $self->write("first\n");
  $self->write("second\n");

  # Wait 3 seconds and write last chunk
  Mojo::IOLoop->timer(3 => sub {
    $self->finish("third\n");
  });
};

app->start;