#D:/perl58/bin/perl.exe use strict; use warnings; use lib qw( c:\tmp ) ; use CGI; use BusyBee; sub main { my $frameset=<<"Eof" Eof ; my $q=new CGI; my $delay=$q->param('delay'); if (!defined($delay) ) { print STDOUT $q->header(-type=>'text/html'), $frameset; } else { my $bb=BusyBee->new($q); $bb->run(); } exit(0); } main();