#/usr/bin/perl -w
use strict;
use CGI;
my $q = new CGI;

print $q->header();
my $err = do_something();
print $err ? $err : "OK";

sub do_something { 
for (my $i=0;$i<20;$i++ {
    print "\7";
   }
}