Sign in
apache
/
tomcat55
/
34b8b69f0f997496662ac60f38fc22da2b4bd889
/
.
/
container
/
tester
/
web
/
WEB-INF
/
cgi
/
dowhile.pl
blob: cded9da3891d578c23960aa089f2be9f1eca0a93 [
file
] [
log
] [
blame
]
#!/usr/bin/perl
require
"subparseform.lib"
;
&
Parse_Form
;
$start
=
$formdata
{
'start'
};
print
"Content-type: text/html\n\n"
;
print
"<P>Starting countdown..."
;
do
{
print
"$start... "
;
--
$start
;
}
while
(
$start
>
0
);
print
"KABOOM!"
;