unless (fork())
{
         system("xterm -T $fields[0] -e \.\/uploader\.pl $index @fields"); 
	exit(0);
}