ct( "dbi:ODBC:$dsn", $user, $passwd, {RaiseError => 1, PrintError => 1}) or die $DBI::errstr; my $counter = $cgi->param('counter') || 1; if ($counter < 1) { $counter = 1; } my $next = $counter + 1; my $url = "zipcgi.pl?counter=$next"; if ($next > 25) { $url = "frame_done.plex?runs=25"; } print "Content-Type: text/html\r\n\r\n"; print < PerlEx Performance

$counter

Perl CGI

EOF # Disconnect database connection $dbh->disconnect;