À¯Áî³Ý¿¡¼­ ¹ßÃéÇÑ ±ÛÀÔ´Ï´Ù.
gilly@gillysoft.co.kr (¢¾ GiLLY ¢¾ )ÀÌ ¾²½Å±Û


###############################
#! /usr/bin/perl

$|=1;

main();

#########################
sub main {
printHTML();

unless ( $pid = fork ) {
unless ( fork ) {
runProcess();
exit(0);
}
exit(0);
}
waitpid ($pid, 0);
}

##########################
sub runProcess {
## ¿©±â¿¡ Àû´çÇÑ ÀÛ¾÷À» ÇØ ÁÖ¸é µË´Ï´Ù.
open GIL, ">c:\È®ÀοëÆÄÀÏ.txt";
print GIL "1234";
close GIL;
sleep 10;
}


########################
sub printHTML {
print "Location: ok_page.html

";
}

__END__