CGI::ApplicationでProgress表示

Perl 



package Progress;

use strict;

use warnings;

use base qw(CGI::Application Class::ErrorHandler);

sub cgiapp_prerun {

    my $self = shift;

    $self->header_add(-type => 'text/html; charset=UTF-8');

}

sub run {

    my $self = shift;

    $self->SUPER::run;

    $self->progress;

}

1;

こんなんでもいいのか？
Hook使ってやったほうがスマート？

とりあえずprogressメソッドで時間のかかる処理をやりつつ
標準出力に経過をだせればよいでしょ。
FireFoxの場合、なかなか画面にだしてくれないので微妙。

普通に画面をlocationさせていって進捗表示したほうがいいかなぁ。

てかやっぱりAjax??