#!/usr/bin/perl -T
use strict;
use CGI::Push;

my $q = CGI::Push->new;

$q->do_push(
	-next_page => \&Do_wait,
	-last_page => \&Get_data,
	-delay => 0
);

sub Do_wait {
	my ($q, $counter) = @_;
	return undef if $counter > 1;
  return '<html>Please wait...</html>'
}

sub Get_data {
	sleep 3; # Simulate dbi accesss delay...
	return "<html>Here's your stuff.</html>"
}