open(X,">$time.pl") or die "$!";
print X $child; 
close(X);