Sign in
apache
/
tomcat55
/
34b8b69f0f997496662ac60f38fc22da2b4bd889
/
.
/
container
/
tester
/
web
/
WEB-INF
/
cgi
/
for.pl
blob: 9bfc918f65931653b089a517df6959ac78b2389d [
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..."
;
for
(
$i
=
$start
;
$i
>
0
;
--
$i
)
{
print
"$i... "
;
}
print
"KABOOM!"
;