sub RUN
{
my$i;return$i||0if($i=fork)||!defined$i;die"\n"if"-".do #tasksub head
{
#your code here, you are forked already
}
}